(distclean): Fix a typo (colon was after "clean").

[gnu-emacs] / lisp / tempo.el

diff --git a/lisp/tempo.el b/lisp/tempo.el
index 4c58a4bca9a2ea4b5bd42ad295230c00ffa3f88c..43f90b647662f0564e31958fb6578e924a33f23a 100644 (file)
--- a/lisp/tempo.el
+++ b/lisp/tempo.el
@@ -1,6 +1,6 @@
 ;;; tempo.el --- Flexible template insertion
 
-;; Copyright (C) 1994, 1995 Free Software Foundation, Inc.
+;; Copyright (C) 1994, 1995, 2004 Free Software Foundation, Inc.
 
 ;; Author: David K}gedal <davidk@lysator.liu.se>
 ;; Created: 16 Feb 1994
@@ -172,7 +172,7 @@ documentation for the function `tempo-complete-tag' for more info.
 (defvar tempo-marks nil
   "A list of marks to jump to with `\\[tempo-forward-mark]' and `\\[tempo-backward-mark]'.")
 
-(defvar tempo-match-finder "\\b\\([^\\b]+\\)\\="
+(defvar tempo-match-finder "\\b\\([[:word:]]+\\)\\="
   "The regexp or function used to find the string to match against tags.
 
 If `tempo-match-finder is a string, it should contain a regular
@@ -182,7 +182,7 @@ the string between the first \\( and \\) is used for matching against
 each string in the tag list. If one is found, the whole text between
 the first \\( and the point is replaced with the inserted template.
 
-You will probably want to include \\ \= at the end of the regexp to
+You will probably want to include \\=\\= at the end of the regexp to
 make sure that the string is matched only against text adjacent to the
 point.
 
@@ -279,7 +279,7 @@ The elements in ELEMENTS can be of several types:
         (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
@@ -540,7 +540,7 @@ and insert the results."
               (setq lp (cdr lp)))
             (if (not (= mark (car lp)))
                 (setcdr lp (cons mark (cdr lp))))))))
-         
+
 ;;;
 ;;; tempo-forward-mark
 
@@ -577,7 +577,7 @@ and insert the results."
                       last))))
     (if prev-mark
        (goto-char prev-mark))))
-       
+
 ;;;
 ;;; tempo-add-tag
 
@@ -755,4 +755,5 @@ space bar, and looks something like this:
 
 (provide 'tempo)
 
+;;; arch-tag: b3c0ee36-db3b-47bc-875f-091b4e27a063
 ;;; tempo.el ends here