125 |
|
|
126 |
(defcustom tempo-insert-region nil |
(defcustom tempo-insert-region nil |
127 |
"*Automatically insert current region when there is a `r' in the template |
"*Automatically insert current region when there is a `r' in the template |
128 |
If this variable is NIL, `r' elements will be treated just like `p' |
If this variable is nil, `r' elements will be treated just like `p' |
129 |
elements, unless the template function is given a prefix (or a non-nil |
elements, unless the template function is given a prefix (or a non-nil |
130 |
argument). If this variable is non-NIL, the behaviour is reversed. |
argument). If this variable is non-nil, the behaviour is reversed. |
131 |
|
|
132 |
In Transient Mark mode, this option is unused." |
In Transient Mark mode, this option is unused." |
133 |
:type 'boolean |
:type 'boolean |
134 |
:group 'tempo) |
:group 'tempo) |
135 |
|
|
136 |
(defcustom tempo-show-completion-buffer t |
(defcustom tempo-show-completion-buffer t |
137 |
"*If non-NIL, show a buffer with possible completions, when only |
"*If non-nil, show a buffer with possible completions, when only |
138 |
a partial completion can be found" |
a partial completion can be found" |
139 |
:type 'boolean |
:type 'boolean |
140 |
:group 'tempo) |
:group 'tempo) |
141 |
|
|
142 |
(defcustom tempo-leave-completion-buffer nil |
(defcustom tempo-leave-completion-buffer nil |
143 |
"*If NIL, a completion buffer generated by \\[tempo-complete-tag] |
"*If nil, a completion buffer generated by \\[tempo-complete-tag] |
144 |
disappears at the next keypress; otherwise, it remains forever." |
disappears at the next keypress; otherwise, it remains forever." |
145 |
:type 'boolean |
:type 'boolean |
146 |
:group 'tempo) |
:group 'tempo) |
197 |
"Element handlers for user-defined elements. |
"Element handlers for user-defined elements. |
198 |
A list of symbols which are bound to functions that take one argument. |
A list of symbols which are bound to functions that take one argument. |
199 |
This function should return something to be sent to `tempo-insert' if |
This function should return something to be sent to `tempo-insert' if |
200 |
it recognizes the argument, and NIL otherwise") |
it recognizes the argument, and nil otherwise.") |
201 |
|
|
202 |
(defvar tempo-named-insertions nil |
(defvar tempo-named-insertions nil |
203 |
"Temporary storage for named insertions") |
"Temporary storage for named insertions.") |
204 |
|
|
205 |
(defvar tempo-region-start (make-marker) |
(defvar tempo-region-start (make-marker) |
206 |
"Region start when inserting around the region") |
"Region start when inserting around the region.") |
207 |
|
|
208 |
(defvar tempo-region-stop (make-marker) |
(defvar tempo-region-stop (make-marker) |
209 |
"Region stop when inserting around the region") |
"Region stop when inserting around the region.") |
210 |
|
|
211 |
;; Make some variables local to every buffer |
;; Make some variables local to every buffer |
212 |
|
|
404 |
"Compatibility hack for tempo-insert-prompt. |
"Compatibility hack for tempo-insert-prompt. |
405 |
PROMPT can be either a prompt string, or a list of arguments to |
PROMPT can be either a prompt string, or a list of arguments to |
406 |
tempo-insert-prompt, or nil." |
tempo-insert-prompt, or nil." |
407 |
(if (consp prompt) ; not NIL either |
(if (consp prompt) ; not nil either |
408 |
(apply 'tempo-insert-prompt prompt) |
(apply 'tempo-insert-prompt prompt) |
409 |
(tempo-insert-prompt prompt))) |
(tempo-insert-prompt prompt))) |
410 |
|
|
630 |
|
|
631 |
(defun tempo-build-collection () |
(defun tempo-build-collection () |
632 |
"Build a collection of all the tags and return it. |
"Build a collection of all the tags and return it. |
633 |
If `tempo-dirty-collection' is NIL, the old collection is reused." |
If `tempo-dirty-collection' is nil, the old collection is reused." |
634 |
(prog1 |
(prog1 |
635 |
(or (and (not tempo-dirty-collection) |
(or (and (not tempo-dirty-collection) |
636 |
tempo-collection) |
tempo-collection) |
681 |
place of the matching string. |
place of the matching string. |
682 |
|
|
683 |
If a partial completion or no match at all is found, and SILENT is |
If a partial completion or no match at all is found, and SILENT is |
684 |
non-NIL, the function will give a signal. |
non-nil, the function will give a signal. |
685 |
|
|
686 |
If a partial completion is found and `tempo-show-completion-buffer' is |
If a partial completion is found and `tempo-show-completion-buffer' is |
687 |
non-NIL, a buffer containing possible completions is displayed." |
non-nil, a buffer containing possible completions is displayed." |
688 |
|
|
689 |
;; This function may look like a hack, but this is how I want it to |
;; This function may look like a hack, but this is how I want it to |
690 |
;; work. |
;; work. |