[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: "No further undo information" clutters *Messages* buffer
From: |
Richard M. Stallman |
Subject: |
Re: "No further undo information" clutters *Messages* buffer |
Date: |
Sat, 29 Oct 2005 16:33:34 -0400 |
Does this patch solve the problem?
*** simple.el 24 Oct 2005 18:07:24 -0400 1.758
--- simple.el 29 Oct 2005 10:34:00 -0400
***************
*** 1344,1350 ****
;; and will get another error. To begin undoing the undos,
;; you must type some other command.
(let ((modified (buffer-modified-p))
! (recent-save (recent-auto-save-p)))
;; If we get an error in undo-start,
;; the next command should not be a "consecutive undo".
;; So set `this-command' to something other than `undo'.
--- 1344,1351 ----
;; and will get another error. To begin undoing the undos,
;; you must type some other command.
(let ((modified (buffer-modified-p))
! (recent-save (recent-auto-save-p))
! message)
;; If we get an error in undo-start,
;; the next command should not be a "consecutive undo".
;; So set `this-command' to something other than `undo'.
***************
*** 1373,1381 ****
;; so, ask the user whether she wants to skip the redo/undo pair.
(let ((equiv (gethash pending-undo-list undo-equiv-table)))
(or (eq (selected-window) (minibuffer-window))
! (message (if undo-in-region
! (if equiv "Redo in region!" "Undo in region!")
! (if equiv "Redo!" "Undo!"))))
(when (and (consp equiv) undo-no-redo)
;; The equiv entry might point to another redo record if we have done
;; undo-redo-undo-redo-... so skip to the very last equiv.
--- 1374,1382 ----
;; so, ask the user whether she wants to skip the redo/undo pair.
(let ((equiv (gethash pending-undo-list undo-equiv-table)))
(or (eq (selected-window) (minibuffer-window))
! (setq message (if undo-in-region
! (if equiv "Redo in region!" "Undo in region!")
! (if equiv "Redo!" "Undo!"))))
(when (and (consp equiv) undo-no-redo)
;; The equiv entry might point to another redo record if we have done
;; undo-redo-undo-redo-... so skip to the very last equiv.
***************
*** 1417,1423 ****
;; Record what the current undo list says,
;; so the next command can tell if the buffer was modified in between.
(and modified (not (buffer-modified-p))
! (delete-auto-save-file-if-necessary recent-save))))
(defun buffer-disable-undo (&optional buffer)
"Make BUFFER stop keeping undo information.
--- 1418,1427 ----
;; Record what the current undo list says,
;; so the next command can tell if the buffer was modified in between.
(and modified (not (buffer-modified-p))
! (delete-auto-save-file-if-necessary recent-save))
! ;; Display a message announcing success.
! (if message
! (message message))))
(defun buffer-disable-undo (&optional buffer)
"Make BUFFER stop keeping undo information.