Commit f8d87590 authored by Julian Scheid's avatar Julian Scheid Committed by Lars Ingebrigtsen

cl-extra: Fix docstring retrieval

* lisp/emacs-lisp/cl-extra.el (cl--describe-class-slots): Fix
docstring retrieval (bug#46662).
parent a728135a
Pipeline #9453 failed with stages
in 32 minutes and 45 seconds
......@@ -898,8 +898,8 @@ Outputs to the current buffer."
(list (cl-prin1-to-string (cl--slot-descriptor-name slot))
(cl-prin1-to-string (cl--slot-descriptor-type slot))
(cl-prin1-to-string (cl--slot-descriptor-initform slot))
(let ((doc (alist-get :documentation
(cl--slot-descriptor-props slot))))
(let ((doc (plist-get (cl--slot-descriptor-props slot)
:documentation)))
(if (not doc) ""
(setq has-doc t)
(substitute-command-keys doc)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment