diff lisp/psgml/tempo.el @ 120:cca96a509cfe r20-1b12

Import from CVS: tag r20-1b12
author cvs
date Mon, 13 Aug 2007 09:25:29 +0200
parents 376386a54a3c
children
line wrap: on
line diff
--- a/lisp/psgml/tempo.el	Mon Aug 13 09:24:19 2007 +0200
+++ b/lisp/psgml/tempo.el	Mon Aug 13 09:25:29 2007 +0200
@@ -6,7 +6,7 @@
 ;; Modified: 20 Jun 1995
 ;; Version: 1.2.4
 ;; Keywords: extensions, languages, tools
-;; $Revision: 1.1.1.1 $
+;; $Revision: 1.2 $
 
 ;; This file is part of GNU Emacs.
 
@@ -111,26 +111,39 @@
 
 ;;; User options
 
-(defvar tempo-interactive t ;; wing change
+(defgroup tempo nil
+  "Flexible template insertion"
+  :group 'extensions)
+
+
+(defcustom tempo-interactive t ;; wing change
   "*Prompt user for strings in templates.
 If this variable is non-nil, `tempo-insert' prompts the
-user for text to insert in the templates")
+user for text to insert in the templates"
+  :type 'boolean
+  :group 'tempo)
 
-(defvar tempo-insert-region nil
+(defcustom tempo-insert-region nil
   "*Automatically insert current region when there is a `r' in the template
 If this variable is NIL, `r' elements will be treated just like `p'
 elements, unless the template function is given a prefix (or a non-nil
 argument). If this variable is non-NIL, the behaviour is reversed.
 
-In Transient Mark mode, this option is unused.")
+In Transient Mark mode, this option is unused."
+  :type 'boolean
+  :group 'tempo)
 
-(defvar tempo-show-completion-buffer t
+(defcustom tempo-show-completion-buffer t
   "*If non-NIL, show a buffer with possible completions, when only
-a partial completion can be found")
+a partial completion can be found"
+  :type 'boolean
+  :group 'tempo)
 
-(defvar tempo-leave-completion-buffer nil
+(defcustom tempo-leave-completion-buffer nil
   "*If NIL, a completion buffer generated by \\[tempo-complete-tag]
-disappears at the next keypress; otherwise, it remains forever.")
+disappears at the next keypress; otherwise, it remains forever."
+  :type 'boolean
+  :group 'tempo)
 
 ;;; Internal variables