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).

diff --git a/lisp/info-look.el b/lisp/info-look.el
index 7f45f976a24e622983d0eaa6e84a704499bf2e68..ce0a08dcbe6edbf9f8081c5e111936c23a538109 100644 (file)
--- 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)