Mercurial > hg > xemacs-beta

comparison lisp/help-macro.el @ 2275:445bd1969ed0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-09-15 08:30:25 by stephent] fix void-function error in apropos <87656glyun.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Wed, 15 Sep 2004 08:30:27 +0000
parents 7039e6323819
children 308d34e9f07d
comparison
equal deleted inserted replaced
2274:8e1339255ca7 2275:445bd1969ed0
108 key))))) 108 key)))))
109 (let ((line-prompt 109 (let ((line-prompt
110 (substitute-command-keys ,(eval help-line)))) 110 (substitute-command-keys ,(eval help-line))))
111 (when three-step-help 111 (when three-step-help
112 (message "%s" line-prompt)) 112 (message "%s" line-prompt))
113 (let* ((help-screen (documentation (quote ,fname))) 113 (let* ((help-screen
114 (condition-case nil
115 (documentation (quote ,fname))
116 (void-function "(alias for undefined function)")
117 (error "(unexpected error from `documention')")))
114 ;; We bind overriding-local-map for very small 118 ;; We bind overriding-local-map for very small
115 ;; sections, *excluding* where we switch buffers and 119 ;; sections, *excluding* where we switch buffers and
116 ;; where we execute the chosen help command. 120 ;; where we execute the chosen help command.
117 (local-map (make-sparse-keymap)) 121 (local-map (make-sparse-keymap))
118 (minor-mode-map-alist nil) 122 (minor-mode-map-alist nil)