procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

cl-extra: Fix docstring retrieval

Browse source 
* lisp/emacs-lisp/cl-extra.el (cl--describe-class-slots): Fix
docstring retrieval (bug#46662).
This commit is contained in:
Julian Scheid 2021-02-22 16:06:03 +01:00 • committed by Lars Ingebrigtsen
parent a728135a2b
commit f8d8759059
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/cl-extra.el
View file

@ -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)))))