diff options
| author | Roland McGrath <roland@gnu.org> | 1994-08-10 23:34:39 +0000 |
|---|---|---|
| committer | Roland McGrath <roland@gnu.org> | 1994-08-10 23:34:39 +0000 |
| commit | 7bce5259418d94f2a78d48ca7b283e2a3b96d9f7 (patch) | |
| tree | 7c5264f3e39e7191a2e42756a0d24f81073e05b1 /lisp/progmodes | |
| parent | 5f1955eb0b2954261163d9e8b549c72c53c4a2ff (diff) | |
| download | emacs-7bce5259418d94f2a78d48ca7b283e2a3b96d9f7.tar.gz | |
(tags-table-including): Inside loop: if CORE-ONLY skip all consecutive
tables not in core; else extend computed list.
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/etags.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index 5bd9c935761..ce75dfc3cca 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -341,14 +341,14 @@ Returns non-nil iff it is a valid table." ;; Loop over the list, looking for a table containing tags for THIS-FILE. (while (and (not found) tables) - (and (not core-only) - (eq (nth 1 tables) t) - ;; This table has not been read into core yet. Read it in now. - (tags-table-extend-computed-list)) - - (if (eq (nth 1 tables) t) - ;; Skip this table not in core. - (setq tables (cdr (cdr tables)))) + + (if core-only + ;; Skip tables not in core. + (while (eq (nth 1 tables) t) + (setq tables (cdr (cdr tables)))) + (if (eq (nth 1 tables) t) + ;; This table has not been read into core yet. Read it in now. + (tags-table-extend-computed-list))) (if tables ;; Select the tags table buffer and get the file list up to date. |