diff options
| author | Richard M. Stallman <rms@gnu.org> | 1999-08-29 20:32:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1999-08-29 20:32:04 +0000 |
| commit | 565c8985a0dc86ef7ce4108f616fc65c7fcd97c0 (patch) | |
| tree | de45486d653b6d98a9f57710aeddfea6ff4eace2 /lisp | |
| parent | 1be152fc1a745e453209820f53cdcc3cce97d934 (diff) | |
| download | emacs-565c8985a0dc86ef7ce4108f616fc65c7fcd97c0.tar.gz emacs-565c8985a0dc86ef7ce4108f616fc65c7fcd97c0.tar.bz2 emacs-565c8985a0dc86ef7ce4108f616fc65c7fcd97c0.zip | |
(tags-loop-continue): After tags-loop-operate returns, force skip to next file.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/etags.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index 2b954c53d98..804faef730c 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -1454,14 +1454,18 @@ evaluate to operate on an interesting file. If the latter evaluates to nil, we exit; otherwise we scan the next file." (interactive) (let (new + ;; Non-nil means we have finished one file + ;; and should not scan it again. + file-finished (messaged nil)) (while (progn ;; Scan files quickly for the first or next interesting one. - (while (or first-time + (while (or first-time file-finished (save-restriction (widen) (not (eval tags-loop-scan)))) + (setq file-finished nil) (setq new (next-file first-time t)) ;; If NEW is non-nil, we got a temp buffer, ;; and NEW is the file name. @@ -1486,7 +1490,8 @@ nil, we exit; otherwise we scan the next file." ;; Now operate on the file. ;; If value is non-nil, continue to scan the next file. - (eval tags-loop-operate))) + (eval tags-loop-operate)) + (setq file-finished t)) (and messaged (null tags-loop-operate) (message "Scanning file %s...found" buffer-file-name)))) |