diff options
| author | Roland McGrath | 1994-08-10 23:34:39 +0000 |
|---|---|---|
| committer | Roland McGrath | 1994-08-10 23:34:39 +0000 |
| commit | 9d591df883d4dd3c7204c96866b45708d4f84107 (patch) | |
| tree | fc1c4f4a75fac788853ed2f2592dce5080d00f8e /lisp/progmodes | |
| parent | 8646118f1756c8e40b495a7b6cea5a0d2d6a4934 (diff) | |
| download | emacs-9d591df883d4dd3c7204c96866b45708d4f84107.tar.gz emacs-9d591df883d4dd3c7204c96866b45708d4f84107.zip | |
(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." | |||
| 341 | ;; Loop over the list, looking for a table containing tags for THIS-FILE. | 341 | ;; Loop over the list, looking for a table containing tags for THIS-FILE. |
| 342 | (while (and (not found) | 342 | (while (and (not found) |
| 343 | tables) | 343 | tables) |
| 344 | (and (not core-only) | 344 | |
| 345 | (eq (nth 1 tables) t) | 345 | (if core-only |
| 346 | ;; This table has not been read into core yet. Read it in now. | 346 | ;; Skip tables not in core. |
| 347 | (tags-table-extend-computed-list)) | 347 | (while (eq (nth 1 tables) t) |
| 348 | 348 | (setq tables (cdr (cdr tables)))) | |
| 349 | (if (eq (nth 1 tables) t) | 349 | (if (eq (nth 1 tables) t) |
| 350 | ;; Skip this table not in core. | 350 | ;; This table has not been read into core yet. Read it in now. |
| 351 | (setq tables (cdr (cdr tables)))) | 351 | (tags-table-extend-computed-list))) |
| 352 | 352 | ||
| 353 | (if tables | 353 | (if tables |
| 354 | ;; Select the tags table buffer and get the file list up to date. | 354 | ;; Select the tags table buffer and get the file list up to date. |