diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-04-05 19:32:55 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-04-05 19:32:55 +0000 |
| commit | ced097232a2649cb11b12f13b5f35282dafa0a6a (patch) | |
| tree | 5a8e6d8faf9ffe0782f2604b256732394ea44fcc /lisp/tempo.el | |
| parent | 6c1fe7d7eaa984b166b8e10cd1ac5b1b9595d7ba (diff) | |
| download | emacs-ced097232a2649cb11b12f13b5f35282dafa0a6a.tar.gz | |
(tempo-build-collection): Clear flag after computing
return value.
Diffstat (limited to 'lisp/tempo.el')
| -rw-r--r-- | lisp/tempo.el | 23 |
1 files changed, 12 insertions, 11 deletions
diff --git a/lisp/tempo.el b/lisp/tempo.el index 642a3cca1da..43f1ff177d9 100644 --- a/lisp/tempo.el +++ b/lisp/tempo.el @@ -3,9 +3,9 @@ ;; Author: David K}gedal <davidk@lysator.liu.se > ;; Created: 16 Feb 1994 -;; Version: 1.2.1 +;; Version: 1.2.2 ;; Keywords: extensions, languages, tools -;; $Revision: 1.5 $ +;; $Revision: 1.6 $ ;; This file is part of GNU Emacs. @@ -558,17 +558,18 @@ Whenever it is needed again it will be rebuilt." (defun tempo-build-collection () "Build a collection of all the tags and return it. If `tempo-dirty-collection' is NIL, the old collection is reused." - (setq tempo-dirty nil) - (or (and (not tempo-dirty-collection) - tempo-collection) - (setq tempo-collection - (apply (function append) - (mapcar (function (lambda (tag-list) + (prog1 + (or (and (not tempo-dirty-collection) + tempo-collection) + (setq tempo-collection + (apply (function append) + (mapcar (function (lambda (tag-list) ; If the format for ; tempo-local-tags changes, ; change this - (eval (car tag-list)))) - tempo-local-tags))))) + (eval (car tag-list)))) + tempo-local-tags)))) + (setq tempo-dirty-collection nil))) ;;; ;;; tempo-find-match-string @@ -597,7 +598,7 @@ if no reasonable string is found." (defun tempo-complete-tag (&optional silent) "Look for a tag and expand it. All the tags in the tag lists in `tempo-local-tags' -(this includes `tempo-tags') are searched for a match for the text +\(this includes `tempo-tags') are searched for a match for the text before the point. The way the string to match for is determined can be altered with the variable `tempo-match-finder'. If `tempo-match-finder' returns nil, then the results are the same as |