;; Copyright (C) 1994, 1995 Free Software Foundation, Inc.
-;; Author: David K}gedal <davidk@lysator.liu.se >
+;; Author: David K}gedal <davidk@lysator.liu.se>
;; Created: 16 Feb 1994
;; K}gedal's last version number: 1.2.4
;; Keywords: extensions, languages, tools
;;; Code:
-;; (provide 'tempo)
-
;;; User options
(defgroup tempo nil
- The symbol 'r. If `tempo-insert' is called with ON-REGION non-nil
the current region is placed here. Otherwise it works like 'p.
- (p PROMPT <NAME> <NOINSERT>) If `tempo-interactive' is non-nil, the
- user is prompted in the minbuffer with PROMPT for a string to be
+ user is prompted in the minibuffer with PROMPT for a string to be
inserted. If the optional parameter NAME is non-nil, the text is
saved for later insertion with the `s' tag. If there already is
something saved under NAME that value is used instead and no
(command-name template-name))
(set template-name elements)
(fset command-name (list 'lambda (list '&optional 'arg)
- (or documentation
+ (or documentation
(concat "Insert a " name "."))
(list 'interactive "*P")
(list 'tempo-insert-template (list 'quote
(setq lp (cdr lp)))
(if (not (= mark (car lp)))
(setcdr lp (cons mark (cdr lp))))))))
-
+
;;;
;;; tempo-forward-mark
last))))
(if prev-mark
(goto-char prev-mark))))
-
+
;;;
;;; tempo-add-tag