Commit 2ebf3469 authored by Dave Love's avatar Dave Love
Browse files

Move provide to end.

(three-step-help): Customize.
parent c906e3ab
......@@ -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)
(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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment