Mercurial > emacs

changeset 49188:4e3e9d5a3332

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(where-is): Catch errors in indirect-function.
author Richard M. Stallman <rms@gnu.org>
date Mon, 13 Jan 2003 08:04:46 +0000
parents c9f452e277ea
children 7739522ac6f2
files lisp/help.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)