diff options
| -rw-r--r-- | lisp/emacs-lisp/eieio.el | 1 |
1 files changed, 1 insertions, 0 deletions
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'." | |||
| 136 | (accessors ())) | 136 | (accessors ())) |
| 137 | 137 | ||
| 138 | ;; Collect the accessors we need to define. | 138 | ;; Collect the accessors we need to define. |
| 139 | (setq slots (mapcar (lambda (x) (if (consp x) x (list x))) slots)) | ||
| 139 | (pcase-dolist (`(,sname . ,soptions) slots) | 140 | (pcase-dolist (`(,sname . ,soptions) slots) |
| 140 | (let* ((acces (plist-get soptions :accessor)) | 141 | (let* ((acces (plist-get soptions :accessor)) |
| 141 | (initarg (plist-get soptions :initarg)) | 142 | (initarg (plist-get soptions :initarg)) |