From 78809db739b070efbdf71d508f4c33a0ec4a13e5 Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Thu, 11 May 1995 03:30:10 +0000 Subject: [PATCH] (tags-loop-continue): Doc fix. Reset NEW after visiting for real, so we don't clobber the buffer again. --- lisp/progmodes/etags.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index 073bf862bb5..fb8ab956b2f 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -1307,11 +1307,12 @@ If it returns non-nil, this file needs processing by evalling "Continue last \\[tags-search] or \\[tags-query-replace] command. Used noninteractively with non-nil argument to begin such a command (the 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 -to see if it is interesting (it returns non-nil if so) -and `tags-loop-operate' is a form to execute to operate on an interesting file -If the latter returns non-nil, we exit; otherwise we scan the next file." + +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 to see if it is +interesting (it returns non-nil if so) and `tags-loop-operate' is a form to +evaluate to operate on an interesting file. If the latter evaluates to +nil, we exit; otherwise we scan the next file." (interactive) (let (new (messaged nil)) @@ -1338,6 +1339,7 @@ If the latter returns non-nil, we exit; otherwise we scan the next file." (let ((pos (point))) (erase-buffer) (set-buffer (find-file-noselect new)) + (setq new nil) ;No longer in a temp buffer. (widen) (goto-char pos))) -- 2.39.2