Mercurial > hg > xemacs-beta

diff lisp/packages/hyper-apropos.el @ 209:41ff10fd062f r20-4b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b3
author cvs
date Mon, 13 Aug 2007 10:04:58 +0200
parents e45d5e7c476e
children
line wrap: on
line diff
--- a/lisp/packages/hyper-apropos.el	Mon Aug 13 10:03:54 2007 +0200
+++ b/lisp/packages/hyper-apropos.el	Mon Aug 13 10:04:58 2007 +0200
@@ -304,7 +304,11 @@
       (insert-char ?\  (let ((l (- 30 (length (format "%S" fn)))))
 			 (if (natnump l) l 0)))
       (and hyper-apropos-show-brief-docs
-	   (setq doc (documentation fn))
+	   (setq doc
+	   ;; A symbol's function slot can point to an unbound symbol.
+	   ;; In that case, `documentation' will fail.
+		 (ignore-errors
+		   (documentation fn)))
 	   (if  (string-match
 		 "^([^\n\t )]+[\t ]*\\([^\n)]+\\)?)\\(:[\t ]*\\|\n?\\'\\)"
 		 doc)