emacs-29 57562c3fd0a: Recognize defstruct slot names in various eieio functions

[Eli Zaretskii]

branch: emacs-29
commit 57562c3fd0a5a7b640cc42c6daaad6842cd5b311
Author: Thuna <thuna.cing@gmail.com>
Commit: Eli Zaretskii <eliz@gnu.org>

    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
---
 lisp/emacs-lisp/cl-preloaded.el | 1 +
 1 file changed, 1 insertion(+)

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