Mercurial > emacs

comparison lisp/help-macro.el @ 2530:1e1a30d5d523

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Name changed to fit in a 14-character limit.
author Eric S. Raymond <esr@snark.thyrsus.com>
date Wed, 14 Apr 1993 16:33:20 +0000
parents 39a58fdf2dee
children 479c78c63f89
comparison
equal deleted inserted replaced
2529:bb127c1081af 2530:1e1a30d5d523
1 ;;; help-screen.el --- Makes command line help such as help-for-help 1 ;;; help-macro.el --- Makes command line help such as help-for-help
2 2
3 ;; Copyright (C) 1993 Free Software Foundation, Inc. 3 ;; Copyright (C) 1993 Free Software Foundation, Inc.
4 4
5 ;; Author: Lynn Slater <lrs@indetech.com> 5 ;; Author: Lynn Slater <lrs@indetech.com>
6 ;; Created: : Mon Oct 1 11:42:39 1990 6 ;; Created: : Mon Oct 1 11:42:39 1990
29 ;; This file supplies the macro make-help-screen which constructs 29 ;; This file supplies the macro make-help-screen which constructs
30 ;; single character dispatching with browsable help such as that provided 30 ;; single character dispatching with browsable help such as that provided
31 ;; by help-for-help. This can be used to make many modes easier to use; for 31 ;; by help-for-help. This can be used to make many modes easier to use; for
32 ;; example, the Gnu Emacs Empire Tool uses this for every "nested" mode map 32 ;; example, the Gnu Emacs Empire Tool uses this for every "nested" mode map
33 ;; called from the main mode map. 33 ;; called from the main mode map.
34
35 ;; The name of this package was changed from help-screen.el to
36 ;; help-macro.el in order to fit in a 14-character limit.
34 37
35 ;;-> *********************** Example of use ********************************* 38 ;;-> *********************** Example of use *********************************
36 39
37 ;;->(make-help-screen help-for-empire-redistribute-map 40 ;;->(make-help-screen help-for-empire-redistribute-map
38 ;;-> "c:civ m:mil p:population f:food ?" 41 ;;-> "c:civ m:mil p:population f:food ?"
102 (error "sorry, this command cannot be run from the help screen. Start over.") 105 (error "sorry, this command cannot be run from the help screen. Start over.")
103 (call-interactively defn)) 106 (call-interactively defn))
104 (ding)))))) 107 (ding))))))
105 )) 108 ))
106 109
107 ;;; help-screen.el 110 ;;; help-macro.el
108 111