* lisp/emacs-lisp/tabulated-list.el (tabulated-list-mode): Disable undo.

Fixes: debbugs:14274

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e236b923932726ffb212f89dd5604e69dcb481c8..290f23a355057794a3de3bfc6e56c95e321a3309 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2013-04-26  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * emacs-lisp/tabulated-list.el (tabulated-list-mode): Disable undo
+       (bug#14274).
+
        * progmodes/octave.el (octave-smie-forward-token): Properly skip
        \n and comment, even if it's not an implicit ; (bug#14218).
 

diff --git a/lisp/emacs-lisp/tabulated-list.el b/lisp/emacs-lisp/tabulated-list.el
index da487e463e2af7bd4df689437141a2167e264c32..6dba423010ffbda790090cd8c4f93ed9809070e4 100644 (file)
--- a/lisp/emacs-lisp/tabulated-list.el
+++ b/lisp/emacs-lisp/tabulated-list.el
@@ -519,12 +519,11 @@ printer is `tabulated-list-print-entry', but a mode that keeps
 data in an ewoc may instead specify a printer function (e.g., one
 that calls `ewoc-enter-last'), with `tabulated-list-print-entry'
 as the ewoc pretty-printer."
-  (setq truncate-lines t)
-  (setq buffer-read-only t)
-  (set (make-local-variable 'revert-buffer-function)
-       'tabulated-list-revert)
-  (set (make-local-variable 'glyphless-char-display)
-       tabulated-list-glyphless-char-display))
+  (setq-local truncate-lines t)
+  (setq-local buffer-read-only t)
+  (setq-local buffer-undo-list t)
+  (setq-local revert-buffer-function #'tabulated-list-revert)
+  (setq-local glyphless-char-display tabulated-list-glyphless-char-display))
 
 (put 'tabulated-list-mode 'mode-class 'special)