(where-is): Catch errors in indirect-function.

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/help.el b/lisp/help.el
index 4002a0aee16..8d0be9b63cc 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -425,7 +425,9 @@ If INSERT (the prefix arg) is non-nil, insert the message in the buffer."
     (mapatoms (lambda (symbol)
                 (and (fboundp symbol)
                      (not (eq symbol definition))
-                     (eq func (indirect-function symbol))
+                     (eq func (condition-case ()
+                                  (indirect-function symbol)
+                                (error symbol)))
                      (push symbol defs))))
     (princ (mapconcat
             #'(lambda (symbol)