From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 13 Jan 2003 08:04:46 +0000 (+0000)
Subject: (where-is): Catch errors in indirect-function.
X-Git-Tag: ttn-vms-21-2-B4~11705
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d92c27571f08cbdb828fb8ee2a46149bafba68f0;p=emacs.git

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

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)