From 40bc027bf44e540fdf702bb56f139a7d95ee55c0 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 23 Sep 2022 17:42:55 -0400 Subject: * lisp/emacs-lisp/eieio.el (defclass): Fix bug#51068 Accept (defclass (.. ..)) 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 984166b593a..a6c900a3355 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)) -- cgit v1.2.1