diff options
| author | Julian Scheid <julians37@gmail.com> | 2021-02-22 16:06:03 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-02-22 16:06:58 +0100 |
| commit | f8d87590592544cacbeed091f3557e02bb0e63ce (patch) | |
| tree | a4847f86b86082fe34c600fea4c40fe2650046be /lisp/emacs-lisp | |
| parent | a728135a2b551917588425d9758c6cc932cb591b (diff) | |
| download | emacs-f8d87590592544cacbeed091f3557e02bb0e63ce.tar.gz emacs-f8d87590592544cacbeed091f3557e02bb0e63ce.tar.bz2 emacs-f8d87590592544cacbeed091f3557e02bb0e63ce.zip | |
cl-extra: Fix docstring retrieval
* lisp/emacs-lisp/cl-extra.el (cl--describe-class-slots): Fix
docstring retrieval (bug#46662).
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-extra.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el index 28ce6b115a4..84199c16127 100644 --- a/lisp/emacs-lisp/cl-extra.el +++ b/lisp/emacs-lisp/cl-extra.el @@ -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))))) |