1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00

Make dynamic info-lookup more backwards-compatible

* lisp/info-look.el (info-lookup--expand-info): Don't try to
expand elements that aren't functions (bug#57446).
This commit is contained in:
Lars Ingebrigtsen 2022-08-27 15:44:12 +02:00
parent 716441a069
commit f427b985a1

View File

@ -130,7 +130,8 @@ OTHER-MODES is a list of cross references to other help modes.")
(defun info-lookup--expand-info (info)
;; We have a dynamic doc-spec function.
(when (and (null (nth 3 info))
(nth 6 info))
(nth 6 info)
(functionp (nth 6 info)))
(setf (nth 3 info) (funcall (nth 6 info))
(nth 6 info) nil))
info)