changeset 25298:866b59632531

Move provide to end. (three-step-help): Customize.

--- a/lisp/help-macro.el	Mon Aug 16 23:04:07 1999 +0000
+++ b/lisp/help-macro.el	Mon Aug 16 23:06:06 1999 +0000
@@ -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 @@
 		     (set-window-configuration config))))))
      )))
 
-;;; help-macro.el
+(provide 'help-macro)
 
+;;; help-macro.el ends here