# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 762131999 0
# Node ID 81290a55365b68c8ca2c88d39294cd1fe95bdab1
# Parent  7c17887a0daf7077dedf217a833ad8355ada1b4e
(make-help-screen): Initialize help-screen before changing the keymap.

diff -r 7c17887a0daf -r 81290a55365b lisp/help-macro.el
--- a/lisp/help-macro.el	Thu Feb 24 22:37:49 1994 +0000
+++ b/lisp/help-macro.el	Thu Feb 24 23:19:59 1994 +0000
@@ -93,14 +93,14 @@
 		  (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))