/[emacs]/emacs/lisp/tempo.el
ViewVC logotype

Diff of /emacs/lisp/tempo.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.16 by monnier, Sun Sep 17 01:04:35 2000 UTC revision 1.17 by pj, Thu Dec 20 18:45:03 2001 UTC
# Line 125  user for text to insert in the templates Line 125  user for text to insert in the templates
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)
# Line 197  should be replaced with a template.") Line 197  should be replaced with a template.")
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    
# Line 404  possible." Line 404  possible."
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    
# Line 630  Whenever it is needed again it will be r Line 630  Whenever it is needed again it will be r
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)
# Line 681  If a single match is found, the correspo Line 681  If a single match is found, the correspo
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.

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26