martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(tags-loop-continue): After tags-loop-operate returns, force skip to next file.

Browse Source
This commit is contained in:
Richard M. Stallman
1999-08-29 20:32:04 +00:00
parent 1be152fc1a
commit 565c8985a0
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/progmodes/etags.el
View File

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