(menu-bar-tools-menu): Call read-mail-command

[gnu-emacs] / lisp / help-macro.el

diff --git a/lisp/help-macro.el b/lisp/help-macro.el
index 3a04fa65b2b75418a9643a8f84d3c74e3ade446a..becc1684f575b44727fbe5095e7493cc272c1e24 100644 (file)
--- a/lisp/help-macro.el
+++ b/lisp/help-macro.el
@@ -44,7 +44,7 @@
 ;;->
 ;;->c  Redistribute civs from overfull sectors into connected underfull ones
 ;;->     The functions typically named by empire-ideal-civ-fcn control
-;;->          based in part on empire-sector-civ-threshold  
+;;->          based in part on empire-sector-civ-threshold
 ;;->m  Redistribute military using levels given by empire-ideal-mil-fcn
 ;;->p  Redistribute excess population to highways for max pop growth
 ;;->     Excess is any sector so full babies will not be born.
@@ -62,22 +62,23 @@
 
 ;;; Change Log:
 ;;
-;; 22-Jan-1991         Lynn Slater x2048       
+;; 22-Jan-1991         Lynn Slater x2048
 ;;    Last Modified: Mon Oct  1 11:43:52 1990 #3 (Lynn Slater)
 ;;    documented better
 
 ;;; Code:
 
-(provide 'help-macro)
 (require 'backquote)
 
 ;;;###autoload
-(defvar three-step-help nil
+(defcustom three-step-help nil
   "*Non-nil means give more info about Help command in three steps.
 The three steps are simple prompt, prompt with all options,
 and window listing and describing the options.
 A value of nil means skip the middle step, so that
-\\[help-command] \\[help-command] gives the window that lists the options.")
+\\[help-command] \\[help-command] gives the window that lists the options."
+  :type 'boolean
+  :group 'help)
 
 (defmacro make-help-screen (fname help-line help-text helped-map)
   "Construct help-menu function name FNAME.
@@ -193,5 +194,6 @@ and then returns."
                     (set-window-configuration config))))))
      )))
 
-;;; help-macro.el
+(provide 'help-macro)
 
+;;; help-macro.el ends here