mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

Make dynamic info-lookup more backwards-compatible

Browse Source 
* 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
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/info-look.el
View File

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