mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Move provide to end.

Browse source 
(three-step-help): Customize.
This commit is contained in:
Dave Love 1999-08-16 23:06:06 +00:00
parent c906e3ab87
commit 2ebf3469d8
1 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/help-macro.el
View file

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