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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 98e3df74030db1712b92cf1d3be11ee6f8569af7..17f4f89ee2246dc5d3802c90227fb31cf0ab76a3 100644 (file)
--- 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 96af63849a461de9955451529a8dda8c372630ef..4148f327ecc852cdf25e4166ba859b09dc2f1de1 100644 (file)
--- 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)