diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-02-24 23:19:59 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-02-24 23:19:59 +0000 |
| commit | 0d4720b0db206b2c8955c09b7ddf9f9028132700 (patch) | |
| tree | 89d928245e27c9a0a2f698d9dd7901b53df29b34 /lisp/help-macro.el | |
| parent | 9e9afbf8667dcde1c3b007e931368a16c34d3b8e (diff) | |
| download | emacs-0d4720b0db206b2c8955c09b7ddf9f9028132700.tar.gz | |
(make-help-screen): Initialize help-screen before changing the keymap.
Diffstat (limited to 'lisp/help-macro.el')
| -rw-r--r-- | lisp/help-macro.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/help-macro.el b/lisp/help-macro.el index 1001986c168..ba84ea47576 100644 --- a/lisp/help-macro.el +++ b/lisp/help-macro.el @@ -93,14 +93,14 @@ and then returns." (substitute-command-keys (, help-line)))) (if three-step-help (message line-prompt)) - (let* ((overriding-local-map (make-sparse-keymap)) + (let* ((help-screen (documentation (quote (, fname)))) + (overriding-local-map (make-sparse-keymap)) (minor-mode-map-alist nil) - config key char help-screen) + config key char) (unwind-protect (progn (setcdr overriding-local-map (, helped-map)) (define-key overriding-local-map [t] 'undefined) - (setq help-screen (documentation (quote (, fname)))) (if three-step-help (setq key (read-key-sequence nil) char (aref key 0)) |