master f427b985a1: Make dynamic info-lookup more backwards-compatible

[Lars Ingebrigtsen]

branch: master
commit f427b985a1857523412a846fcaa9082c87c0bbd1
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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).
---
 lisp/info-look.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/info-look.el b/lisp/info-look.el
index 7f45f976a2..ce0a08dcbe 100644
--- a/lisp/info-look.el
+++ b/lisp/info-look.el
@@ -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)