From fda73b4587f9049dd7b7b39553366fe120957b3c Mon Sep 17 00:00:00 2001 From: Luc Teirlinck Date: Mon, 27 Dec 2004 05:17:09 +0000 Subject: [PATCH] (Buffer-menu-revert-function): Clear out undo info before reverting and disable undo recording while reverting. --- lisp/buff-menu.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el index 1c3fa704041..8e1a3e69295 100644 --- a/lisp/buff-menu.el +++ b/lisp/buff-menu.el @@ -198,11 +198,15 @@ Letters do not insert themselves; instead, they are commands. (revert-buffer)) (defun Buffer-menu-revert-function (ignore1 ignore2) + (or (eq buffer-undo-list t) + (setq buffer-undo-list nil)) ;; We can not use save-excursion here. The buffer gets erased. (let ((ocol (current-column)) (oline (progn (move-to-column 4) (get-text-property (point) 'buffer))) - (prop (point-min))) + (prop (point-min)) + ;; do not make undo records for the reversion. + (buffer-undo-list t)) (list-buffers-noselect Buffer-menu-files-only) (while (setq prop (next-single-property-change prop 'buffer)) (when (eq (get-text-property prop 'buffer) oline) -- 2.39.2