Mercurial > emacs

comparison lisp/tempo.el @ 21088:ac1673121774

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Customized.
author Stephen Eglen <stephen@gnu.org>
date Sat, 07 Mar 1998 18:19:38 +0000
parents 83f275dcd93a
children cbe304a26771
comparison
equal deleted inserted replaced
21087:c297faa167f5 21088:ac1673121774
109 109
110 ;; (provide 'tempo) 110 ;; (provide 'tempo)
111 111
112 ;;; User options 112 ;;; User options
113 113
114 (defvar tempo-interactive nil 114 (defgroup tempo nil
115 "Flexible template insertion."
116 :prefix "tempo-"
117 :group 'tools)
118
119 (defcustom tempo-interactive nil
115 "*Prompt user for strings in templates. 120 "*Prompt user for strings in templates.
116 If this variable is non-nil, `tempo-insert' prompts the 121 If this variable is non-nil, `tempo-insert' prompts the
117 user for text to insert in the templates") 122 user for text to insert in the templates"
118 123 :type 'boolean
119 (defvar tempo-insert-region nil 124 :group 'tempo)
125
126 (defcustom tempo-insert-region nil
120 "*Automatically insert current region when there is a `r' in the template 127 "*Automatically insert current region when there is a `r' in the template
121 If this variable is NIL, `r' elements will be treated just like `p' 128 If this variable is NIL, `r' elements will be treated just like `p'
122 elements, unless the template function is given a prefix (or a non-nil 129 elements, unless the template function is given a prefix (or a non-nil
123 argument). If this variable is non-NIL, the behaviour is reversed. 130 argument). If this variable is non-NIL, the behaviour is reversed.
124 131
125 In Transient Mark mode, this option is unused.") 132 In Transient Mark mode, this option is unused."
126 133 :type 'boolean
127 (defvar tempo-show-completion-buffer t 134 :group 'tempo)
135
136 (defcustom tempo-show-completion-buffer t
128 "*If non-NIL, show a buffer with possible completions, when only 137 "*If non-NIL, show a buffer with possible completions, when only
129 a partial completion can be found") 138 a partial completion can be found"
130 139 :type 'boolean
131 (defvar tempo-leave-completion-buffer nil 140 :group 'tempo)
141
142 (defcustom tempo-leave-completion-buffer nil
132 "*If NIL, a completion buffer generated by \\[tempo-complete-tag] 143 "*If NIL, a completion buffer generated by \\[tempo-complete-tag]
133 disappears at the next keypress; otherwise, it remains forever.") 144 disappears at the next keypress; otherwise, it remains forever."
145 :type 'boolean
146 :group 'tempo)
134 147
135 ;;; Internal variables 148 ;;; Internal variables
136 149
137 (defvar tempo-insert-string-functions nil 150 (defvar tempo-insert-string-functions nil
138 "List of functions to run when inserting a string. 151 "List of functions to run when inserting a string.