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

* lisp/apropos.el (apropos-safe-documentation): Use function-documentation

Browse source
This commit is contained in:
Stefan Monnier 2023-01-13 18:00:29 -05:00
parent f5d8aa6eda
commit dce42f5561
1 changed files with 7 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
lisp/apropos.el
View file

@ -1117,23 +1117,13 @@ non-nil."
(defun apropos-safe-documentation (function)
"Like `documentation', except it avoids calling `get_doc_string'.
Will return nil instead."
(while (and function (symbolp function))
(setq function (symbol-function function)))
(if (eq (car-safe function) 'macro)
(setq function (cdr function)))
(setq function (if (byte-code-function-p function)
(if (> (length function) 4)
(aref function 4))
(if (autoloadp function)
(nth 2 function)
(if (eq (car-safe function) 'lambda)
(if (stringp (nth 2 function))
(nth 2 function)
(if (stringp (nth 3 function))
(nth 3 function)))))))
(if (integerp function)
nil
function))
(when (setq function (indirect-function function))
;; FIXME: `function-documentation' says not to call it, but `documentation'
;; would turn (FILE . POS) references into strings too eagerly, so
;; we do want to use the lower-level function.
(let ((doc (function-documentation function)))
;; Docstrings from the DOC file are handled elsewhere.
(if (integerp doc) nil doc))))
(defcustom apropos-compact-layout nil
"If non-nil, use a single line per binding."