mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

(tags-loop-continue): Doc fix.

Browse Source 
Reset NEW after visiting for real, so we don't clobber the buffer again.
This commit is contained in:
Roland McGrath 1995-05-11 03:30:10 +00:00
parent 4dbf8a2c70
commit 78809db739
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/progmodes/etags.el
View File

@ -1307,11 +1307,12 @@ If it returns non-nil, this file needs processing by evalling
"Continue last \\[tags-search] or \\[tags-query-replace] command. "Continue last \\[tags-search] or \\[tags-query-replace] command.
Used noninteractively with non-nil argument to begin such a command (the Used noninteractively with non-nil argument to begin such a command (the
argument is passed to `next-file', which see). argument is passed to `next-file', which see).
Two variables control the processing we do on each file:
the value of `tags-loop-scan' is a form to be executed on each file Two variables control the processing we do on each file: the value of
to see if it is interesting (it returns non-nil if so) `tags-loop-scan' is a form to be executed on each file to see if it is
and `tags-loop-operate' is a form to execute to operate on an interesting file interesting (it returns non-nil if so) and `tags-loop-operate' is a form to
If the latter returns non-nil, we exit; otherwise we scan the next file." evaluate to operate on an interesting file. If the latter evaluates to
nil, we exit; otherwise we scan the next file."
(interactive) (interactive)
(let (new (let (new
(messaged nil)) (messaged nil))
@ -1338,6 +1339,7 @@ If the latter returns non-nil, we exit; otherwise we scan the next file."
(let ((pos (point))) (let ((pos (point)))
(erase-buffer) (erase-buffer)
(set-buffer (find-file-noselect new)) (set-buffer (find-file-noselect new))
(setq new nil) ;No longer in a temp buffer.
(widen) (widen)
(goto-char pos))) (goto-char pos)))