Fix next-file command in etags.el.

* lisp/progmodes/etags.el (next-file): Don't use set-buffer to change
buffers (Bug#8478).

* doc/lisp/maintaining.texi (List Tags): Document next-file.

diff --git a/doc/emacs/ChangeLog b/doc/emacs/ChangeLog
index 378253827888aa2c7ba5c8ffa240665e4f7c1520..92cd765b492cf8882be5d6ef8b160ba7ab3ce1e5 100644 (file)
--- a/doc/emacs/ChangeLog
+++ b/doc/emacs/ChangeLog
@@ -1,3 +1,8 @@
+2011-04-24  Chong Yidong  <cyd@stupidchicken.com>
+
+       * maintaining.texi (List Tags): Document next-file.  Suggested by
+       Uday S Reddy.
+
 2011-04-23  Juanma Barranquero  <lekktu@gmail.com>
 
        * mini.texi (Minibuffer Edit):

diff --git a/doc/emacs/maintaining.texi b/doc/emacs/maintaining.texi
index 8f395ba9563b65b695340ef7fef8974ec7a80cdc..dafc9327c7449d0ac5f6aeca1dad197c693a50e2 100644 (file)
--- a/doc/emacs/maintaining.texi
+++ b/doc/emacs/maintaining.texi
@@ -2326,6 +2326,12 @@ details.
   You can also use the collection of tag names to complete a symbol
 name in the buffer.  @xref{Symbol Completion}.
 
+  You can use @kbd{M-x next-file} to visit the files in the selected
+tags table.  The first time this command is called, it visits the
+first file in the tags table.  Each subsequent call visits the next
+file in the table, unless a prefix argument is supplied, in which case
+it returns to the first file.
+
 @node EDE
 @section Emacs Development Environment
 @cindex EDE (Emacs Development Environment)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c83f8d5102ff28bfd15f57d491f0db2253ebffcb..efbd08ae6e92b51340febc7b767b8b136bae7d5e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-04-24  Uday S Reddy  <u.s.reddy@cs.bham.ac.uk>  (tiny change)
+
+       * progmodes/etags.el (next-file): Don't use set-buffer to change
+       buffers (Bug#8478).
+
 2011-04-24  Chong Yidong  <cyd@stupidchicken.com>
 
        * files.el (auto-mode-alist): Use js-mode for .json (Bug#8529).

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 49a2971a92a18b08d18abf86d1ea057ec303b951..6bd2de992cb8a5cf0e4e56594fc2fb13345370cc 100644 (file)
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -1756,9 +1756,9 @@ if the file was newly read in, the value is the filename."
         (with-current-buffer buffer
           (revert-buffer t t)))
     (if (not (and new novisit))
-       (set-buffer (find-file-noselect next novisit))
+       (find-file next novisit)
       ;; Like find-file, but avoids random warning messages.
-      (set-buffer (get-buffer-create " *next-file*"))
+      (switch-to-buffer (get-buffer-create " *next-file*"))
       (kill-all-local-variables)
       (erase-buffer)
       (setq new next)