(select-tags-table): Disable undo in the `*Tags Table List*' buffer.

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 98e3df74030..17f4f89ee22 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-10-14  Glenn Morris  <rgm@gnu.org>
+
+        * progmodes/etags.el (select-tags-table): Disable undo in the
+        `*Tags Table List*' buffer.
+
 2007-10-13  Glenn Morris  <rgm@gnu.org>
 
         * progmodes/octave-mod.el (octave-looking-at-kw): Add doc string.
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 96af63849a4..4148f327ecc 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -1904,7 +1904,8 @@ The list of tags tables to select from is stored in `tags-table-set-list';
 see the doc of that variable if you want to add names to the list."
   (interactive)
   (pop-to-buffer "*Tags Table List*")
-  (setq buffer-read-only nil)
+  (setq buffer-read-only nil
+        buffer-undo-list t)
   (erase-buffer)
   (let ((set-list tags-table-set-list)
         (desired-point nil)