diff options
| author | Thuna <thuna.cing@gmail.com> | 2023-04-19 23:43:22 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2023-05-03 14:44:59 +0300 |
| commit | 57562c3fd0a5a7b640cc42c6daaad6842cd5b311 (patch) | |
| tree | 715f6655487f537283aa0215d2761d8ac4cdc524 /lisp/emacs-lisp/cl-preloaded.el | |
| parent | b93eb68cc30241059a339fbc697677f8f1d400ab (diff) | |
| download | emacs-57562c3fd0a5a7b640cc42c6daaad6842cd5b311.tar.gz emacs-57562c3fd0a5a7b640cc42c6daaad6842cd5b311.tar.bz2 emacs-57562c3fd0a5a7b640cc42c6daaad6842cd5b311.zip | |
Recognize defstruct slot names in various eieio functions
* lisp/emacs-lisp/cl-preloaded.el (cl-struct-define): Set
each slot's name's 'slot-name' property so that
'eieio--known-slot-name-p' can recognize them. (Bug#62959)
Copyright-paperwork-exempt: yes
Diffstat (limited to 'lisp/emacs-lisp/cl-preloaded.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-preloaded.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/cl-preloaded.el b/lisp/emacs-lisp/cl-preloaded.el index 9445093f143..5235be52996 100644 --- a/lisp/emacs-lisp/cl-preloaded.el +++ b/lisp/emacs-lisp/cl-preloaded.el @@ -176,6 +176,7 @@ supertypes from the most specific to least specific.") (i 0) (offset (if type 0 1))) (dolist (slot slots) + (put (car slot) 'slot-name t) (let* ((props (cl--plist-to-alist (cddr slot))) (typep (assq :type props)) (type (if (null typep) t |