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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 95bb387c67b61ad575439b071f3958857ae45a24..33ed2702a04c2fc47803e4f469b05efb810f5c41 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  Eli Zaretskii  <eliz@gnu.org>
 
        * dired.el (dired-warn-writable): New face.

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)