Mercurial > emacs
changeset 8509:be778f8834a5
(tags-table-including): Inside loop: if CORE-ONLY skip all consecutive
tables not in core; else extend computed list.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Wed, 10 Aug 1994 23:34:39 +0000 |
| parents | 6d2f0901efe9 |
| children | 8903669537b0 |
| files | lisp/progmodes/etags.el |
| diffstat | 1 files changed, 7 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/etags.el Wed Aug 10 20:32:38 1994 +0000 +++ b/lisp/progmodes/etags.el Wed Aug 10 23:34:39 1994 +0000 @@ -341,14 +341,14 @@ ;; 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.