From: Stefan Monnier Date: Fri, 26 Apr 2013 14:47:07 +0000 (-0400) Subject: * lisp/emacs-lisp/tabulated-list.el (tabulated-list-mode): Disable undo. X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~359^2~6 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=140ef50c0494870fd6b817f8f9b7e8d2cee81b64;p=emacs.git * lisp/emacs-lisp/tabulated-list.el (tabulated-list-mode): Disable undo. Fixes: debbugs:14274 --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e236b923932..290f23a3550 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2013-04-26 Stefan Monnier + * 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 da487e463e2..6dba423010f 100644 --- 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)