(make-help-screen): Initialize help-screen before changing the keymap.

diff --git a/lisp/help-macro.el b/lisp/help-macro.el
index 1001986c168bd3fcb5f0dd4849cb50f14592c0f5..ba84ea475761eaedcf8e0f20bb14fd59cec4605c 100644 (file)
--- 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))