From d92c27571f08cbdb828fb8ee2a46149bafba68f0 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Mon, 13 Jan 2003 08:04:46 +0000
Subject: [PATCH] (where-is): Catch errors in indirect-function.

---
 lisp/help.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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