Mercurial > emacs

comparison lisp/help-macro.el @ 6078:81290a55365b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(make-help-screen): Initialize help-screen before changing the keymap.
author Karl Heuer <kwzh@gnu.org>
date Thu, 24 Feb 1994 23:19:59 +0000
parents ea9f55ec6ee9
children 4fd40bd394fe
comparison
equal deleted inserted replaced
6077:7c17887a0daf 6078:81290a55365b
91 (interactive) 91 (interactive)
92 (let ((line-prompt 92 (let ((line-prompt
93 (substitute-command-keys (, help-line)))) 93 (substitute-command-keys (, help-line))))
94 (if three-step-help 94 (if three-step-help
95 (message line-prompt)) 95 (message line-prompt))
96 (let* ((overriding-local-map (make-sparse-keymap)) 96 (let* ((help-screen (documentation (quote (, fname))))
97 (overriding-local-map (make-sparse-keymap))
97 (minor-mode-map-alist nil) 98 (minor-mode-map-alist nil)
98 config key char help-screen) 99 config key char)
99 (unwind-protect 100 (unwind-protect
100 (progn 101 (progn
101 (setcdr overriding-local-map (, helped-map)) 102 (setcdr overriding-local-map (, helped-map))
102 (define-key overriding-local-map [t] 'undefined) 103 (define-key overriding-local-map [t] 'undefined)
103 (setq help-screen (documentation (quote (, fname))))
104 (if three-step-help 104 (if three-step-help
105 (setq key (read-key-sequence nil) 105 (setq key (read-key-sequence nil)
106 char (aref key 0)) 106 char (aref key 0))
107 (setq char ??)) 107 (setq char ??))
108 (if (or (eq char ??) (eq char help-char)) 108 (if (or (eq char ??) (eq char help-char))