# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1042445086 0
# Node ID 4e3e9d5a3332a067362db1b9e0b9498d2faac0c5
# Parent  c9f452e277ead287b1e0160dfcb22a30012982a6
(where-is): Catch errors in indirect-function.

diff -r c9f452e277ea -r 4e3e9d5a3332 lisp/help.el
--- a/lisp/help.el	Mon Jan 13 08:04:17 2003 +0000
+++ b/lisp/help.el	Mon Jan 13 08:04:46 2003 +0000
@@ -425,7 +425,9 @@
     (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)