From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 24 Feb 1994 23:19:59 +0000 (+0000)
Subject: (make-help-screen): Initialize help-screen before changing the keymap.
X-Git-Tag: emacs-19.34~9774
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0d4720b0db206b2c8955c09b7ddf9f9028132700;p=emacs.git

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

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))