Mercurial > emacs
comparison lisp/tempo.el @ 11208:18107abf5df3
(tempo-build-collection): Clear flag after computing
return value.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 05 Apr 1995 19:32:55 +0000 |
| parents | 577f71dad5c3 |
| children | e6bdaaa6ce1b |
comparison
equal
deleted
inserted
replaced
| 11207:e917a1df21ef | 11208:18107abf5df3 |
|---|---|
| 1 ;;; tempo.el --- Flexible template insertion | 1 ;;; tempo.el --- Flexible template insertion |
| 2 ;; Copyright (C) 1994 Free Software Foundation, Inc. | 2 ;; Copyright (C) 1994 Free Software Foundation, Inc. |
| 3 | 3 |
| 4 ;; Author: David K}gedal <davidk@lysator.liu.se > | 4 ;; Author: David K}gedal <davidk@lysator.liu.se > |
| 5 ;; Created: 16 Feb 1994 | 5 ;; Created: 16 Feb 1994 |
| 6 ;; Version: 1.2.1 | 6 ;; Version: 1.2.2 |
| 7 ;; Keywords: extensions, languages, tools | 7 ;; Keywords: extensions, languages, tools |
| 8 ;; $Revision: 1.5 $ | 8 ;; $Revision: 1.6 $ |
| 9 | 9 |
| 10 ;; This file is part of GNU Emacs. | 10 ;; This file is part of GNU Emacs. |
| 11 | 11 |
| 12 ;; GNU Emacs is free software; you can redistribute it and/or modify | 12 ;; GNU Emacs is free software; you can redistribute it and/or modify |
| 13 ;; it under the terms of the GNU General Public License as published by | 13 ;; it under the terms of the GNU General Public License as published by |
| 556 ;;; tempo-build-collection | 556 ;;; tempo-build-collection |
| 557 | 557 |
| 558 (defun tempo-build-collection () | 558 (defun tempo-build-collection () |
| 559 "Build a collection of all the tags and return it. | 559 "Build a collection of all the tags and return it. |
| 560 If `tempo-dirty-collection' is NIL, the old collection is reused." | 560 If `tempo-dirty-collection' is NIL, the old collection is reused." |
| 561 (setq tempo-dirty nil) | 561 (prog1 |
| 562 (or (and (not tempo-dirty-collection) | 562 (or (and (not tempo-dirty-collection) |
| 563 tempo-collection) | 563 tempo-collection) |
| 564 (setq tempo-collection | 564 (setq tempo-collection |
| 565 (apply (function append) | 565 (apply (function append) |
| 566 (mapcar (function (lambda (tag-list) | 566 (mapcar (function (lambda (tag-list) |
| 567 ; If the format for | 567 ; If the format for |
| 568 ; tempo-local-tags changes, | 568 ; tempo-local-tags changes, |
| 569 ; change this | 569 ; change this |
| 570 (eval (car tag-list)))) | 570 (eval (car tag-list)))) |
| 571 tempo-local-tags))))) | 571 tempo-local-tags)))) |
| 572 (setq tempo-dirty-collection nil))) | |
| 572 | 573 |
| 573 ;;; | 574 ;;; |
| 574 ;;; tempo-find-match-string | 575 ;;; tempo-find-match-string |
| 575 | 576 |
| 576 (defun tempo-find-match-string (finder) | 577 (defun tempo-find-match-string (finder) |
| 595 ;;; tempo-complete-tag | 596 ;;; tempo-complete-tag |
| 596 | 597 |
| 597 (defun tempo-complete-tag (&optional silent) | 598 (defun tempo-complete-tag (&optional silent) |
| 598 "Look for a tag and expand it. | 599 "Look for a tag and expand it. |
| 599 All the tags in the tag lists in `tempo-local-tags' | 600 All the tags in the tag lists in `tempo-local-tags' |
| 600 (this includes `tempo-tags') are searched for a match for the text | 601 \(this includes `tempo-tags') are searched for a match for the text |
| 601 before the point. The way the string to match for is determined can | 602 before the point. The way the string to match for is determined can |
| 602 be altered with the variable `tempo-match-finder'. If | 603 be altered with the variable `tempo-match-finder'. If |
| 603 `tempo-match-finder' returns nil, then the results are the same as | 604 `tempo-match-finder' returns nil, then the results are the same as |
| 604 no match at all. | 605 no match at all. |
| 605 | 606 |