mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

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