[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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 40bc027bf4: * lisp/emacs-lisp/eieio.el (defclass): Fix bug#51068,
Stefan Monnier <=