(if (natnump l) l 0)))
(and hyper-apropos-show-brief-docs
(setq doc
- ;; A symbol's function slot can point to an unbound symbol.
- ;; In that case, `documentation' will fail.
- (ignore-errors
- (documentation fn)))
+ ;; A symbol's function slot can point to an unbound symbol.
+ ;; In that case, `documentation' will fail.
+ (condition-case nil
+ (documentation fn)
+ (void-function "(alias for undefined function)")
+ (error "(unexpected error from `documentation')")))
(if (string-match
"^([^\n\t )]+[\t ]*\\([^\n)]+\\)?)\\(:[\t ]*\\|\n?\\'\\)"
doc)
local (current-local-map)
global (current-global-map)
obsolete (get symbol 'byte-obsolete-info)
- doc (or (documentation symbol) "function not documented"))
+ doc (or (condition-case nil
+ (documentation symbol)
+ (void-function
+ "(alias for undefined function)")
+ (error "(unexpected error from `documention')"))
+ "function not documented"))
(save-excursion
(set-buffer hyper-apropos-help-buf)
(goto-char (point-max))
nil
(forward-char 3)
(read (point-marker))))
- ((and
- (eq major-mode 'hyper-apropos-help-mode)
- (> (point) (point-min)))
- (save-excursion
- (goto-char (point-min))
- (hyper-apropos-this-symbol)))
+ ;; What's this? This ends up in the same symbol already described.
+;; ((and
+;; (eq major-mode 'hyper-apropos-help-mode)
+;; (> (point) (point-min)))
+;; (save-excursion
+;; (goto-char (point-min))
+;; (hyper-apropos-this-symbol)))
(t
(let* ((st (progn
(skip-syntax-backward "w_")