(let ((doc (condition-case nil
(or (documentation function)
(gettext "not documented"))
- (void-function ""))))
+ (void-function "(alias for undefined function)")
+ (error "(unexpected error from `documention')"))))
(if (and strip-arglist
(string-match "[\n\t ]*\narguments: ?(\\(.*\\))\n?\\'" doc))
(setq doc (substring doc 0 (match-beginning 0))))
(princ object)
(put-nonduplicable-text-property
pos (marker-position standard-output) 'face face buf)))
- (t princ object)))
+ (t (princ object))))
;; replacement for `prin1' that puts the text in the specified face,
;; if possible
(prin1 object)
(put-nonduplicable-text-property
pos (marker-position standard-output) 'face face buf)))
- (t prin1 object)))
+ (t (prin1 object))))
(defvar help-symbol-regexp
(let ((sym-char "[+a-zA-Z0-9_:*]")
(documentation-property sym
'variable-documentation t)))
(fun (and sym (fboundp sym)
- (documentation sym t))))
+ (condition-case nil
+ (documentation sym t)
+ (void-function "(alias for undefined function)")
+ (error "(unexpected error from `documention')")))))
(when (or var fun)
(let ((ex (make-extent b e)))
(require 'hyper-apropos)