diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-04-26 10:47:07 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-04-26 10:47:07 -0400 |
| commit | 140ef50c0494870fd6b817f8f9b7e8d2cee81b64 (patch) | |
| tree | 4ba69f1489c4bbd55faa67a92b63d2655888f662 /lisp/emacs-lisp | |
| parent | e53052d3bf33296268db3aadcf5531f69f8e55ae (diff) | |
| download | emacs-140ef50c0494870fd6b817f8f9b7e8d2cee81b64.tar.gz emacs-140ef50c0494870fd6b817f8f9b7e8d2cee81b64.tar.bz2 emacs-140ef50c0494870fd6b817f8f9b7e8d2cee81b64.zip | |
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-mode): Disable undo.
Fixes: debbugs:14274
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/tabulated-list.el | 11 |
1 files changed, 5 insertions, 6 deletions
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) |