emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 40bc027bf4: * lisp/emacs-lisp/eieio.el (defclass): Fix bug#51068


From: Stefan Monnier
Subject: master 40bc027bf4: * lisp/emacs-lisp/eieio.el (defclass): Fix bug#51068
Date: Fri, 23 Sep 2022 17:43:04 -0400 (EDT)

branch: master
commit 40bc027bf44e540fdf702bb56f139a7d95ee55c0
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * lisp/emacs-lisp/eieio.el (defclass): Fix bug#51068
    
    Accept (defclass <class> <superclasses> (.. <slotname> ..)) without
    having to wrap the slot name within parentheses.
---
 lisp/emacs-lisp/eieio.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lisp/emacs-lisp/eieio.el b/lisp/emacs-lisp/eieio.el
index 984166b593..a6c900a335 100644
--- a/lisp/emacs-lisp/eieio.el
+++ b/lisp/emacs-lisp/eieio.el
@@ -136,6 +136,7 @@ and reference them using the function `class-option'."
         (accessors ()))
 
     ;; Collect the accessors we need to define.
+    (setq slots (mapcar (lambda (x) (if (consp x) x (list x))) slots))
     (pcase-dolist (`(,sname . ,soptions) slots)
       (let* ((acces   (plist-get soptions :accessor))
             (initarg (plist-get soptions :initarg))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]