diff options
| author | Stefan Monnier | 2022-09-23 17:42:55 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2022-09-23 17:42:55 -0400 |
| commit | 40bc027bf44e540fdf702bb56f139a7d95ee55c0 (patch) | |
| tree | 0c9120238e9468d753bd1ac86e4a732c5f7340c9 | |
| parent | 759d1145e2cb04fde83cf721d3d1fd0644e9c8f1 (diff) | |
| download | emacs-40bc027bf44e540fdf702bb56f139a7d95ee55c0.tar.gz emacs-40bc027bf44e540fdf702bb56f139a7d95ee55c0.zip | |
* lisp/emacs-lisp/eieio.el (defclass): Fix bug#51068
Accept (defclass <class> <superclasses> (.. <slotname> ..)) without
having to wrap the slot name within parentheses.
| -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)) |