[Emacs-diffs] master 87464d6: (cl--copy-slot-descriptor): Copy the `props' alist as well

[Stefan Monnier]

branch: master
commit 87464d637a698f65e2bbdd18fa4a464f804cc5fc
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    (cl--copy-slot-descriptor): Copy the `props' alist as well
    
    * lisp/emacs-lisp/cl-preloaded.el (cl--copy-slot-descriptor-1):
    Rename from cl--copy-slot-descriptor.
    (cl--copy-slot-descriptor): New function.  Copy the alist (bug#20914).
---
 lisp/emacs-lisp/cl-preloaded.el |    7 ++++++-
 1 files changed, 6 insertions(+), 1 deletions(-)

diff --git a/lisp/emacs-lisp/cl-preloaded.el b/lisp/emacs-lisp/cl-preloaded.el
index ed0639b..60f6542 100644
--- a/lisp/emacs-lisp/cl-preloaded.el
+++ b/lisp/emacs-lisp/cl-preloaded.el
@@ -195,7 +195,7 @@
                (:constructor nil)
                (:constructor cl--make-slot-descriptor
                 (name &optional initform type props))
-               (:copier cl--copy-slot-descriptor))
+               (:copier cl--copy-slot-descriptor-1))
   ;; FIXME: This is actually not used yet, for circularity reasons!
   "Descriptor of structure slot."
   name                                  ;Attribute name (symbol).
@@ -205,6 +205,11 @@
   ;;  :documentation, :protection, :custom, :label, :group, :printer.
   (props nil :type alist))
 
+(defun cl--copy-slot-descriptor (slot)
+  (let ((new (cl--copy-slot-descriptor-1 slot)))
+    (cl-callf copy-alist (cl--slot-descriptor-props new))
+    new))
+
 (cl-defstruct (cl--class
                (:constructor nil)
                (:copier nil))