[Emacs-diffs] /srv/bzr/emacs/trunk r112396: * lisp/emacs-lisp/tabulated-list.el (tabulated-list-mode): Disable undo.

[Stefan Monnier]

------------------------------------------------------------
revno: 112396
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=14274
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Fri 2013-04-26 10:47:07 -0400
message:
  * lisp/emacs-lisp/tabulated-list.el (tabulated-list-mode): Disable undo.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/tabulated-list.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-04-26 14:34:26 +0000
+++ b/lisp/ChangeLog    2013-04-26 14:47:07 +0000
@@ -1,5 +1,8 @@
 2013-04-26  Stefan Monnier  <address@hidden>
 
+       * 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).
 

=== modified file 'lisp/emacs-lisp/tabulated-list.el'
--- a/lisp/emacs-lisp/tabulated-list.el 2013-02-16 02:50:44 +0000
+++ b/lisp/emacs-lisp/tabulated-list.el 2013-04-26 14:47:07 +0000
@@ -519,12 +519,11 @@
 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)