mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-14 19:54:44 -08:00
Code Issues Projects Releases Wiki Activity

(tags-table-including): Inside loop: if CORE-ONLY skip all consecutive

Browse source 
tables not in core; else extend computed list.
This commit is contained in:
Roland McGrath 1994-08-10 23:34:39 +00:00
parent 8646118f17
commit 9d591df883
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/progmodes/etags.el
View file

@ -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.