[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-25 8f9c1ed: Fix missing undo-boundary on revert-buff
From: |
Phillip Lord |
Subject: |
[Emacs-diffs] emacs-25 8f9c1ed: Fix missing undo-boundary on revert-buffer. |
Date: |
Wed, 6 Jul 2016 09:16:57 +0000 (UTC) |
branch: emacs-25
commit 8f9c1eda934fd842f53be2d4e72c41728f9b5bd1
Author: Phillip Lord <address@hidden>
Commit: Phillip Lord <address@hidden>
Fix missing undo-boundary on revert-buffer.
* lisp/simple.el (undo-auto--undoable-change-no-timer): New function.
* src/fileio.c (insert-buffer-contents): Call
undo-auto--undoably-changed-buffers before changes.
Addresses Bug#23785.
Do not merge to master as c98bc98 also addresses the same bug.
---
lisp/simple.el | 10 +++++++++-
src/fileio.c | 5 +++++
2 files changed, 14 insertions(+), 1 deletion(-)
diff --git a/lisp/simple.el b/lisp/simple.el
index b66827d..43ad43c 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2940,9 +2940,17 @@ behavior."
(cdr buffer-undo-list))))))
(setq undo-auto--last-boundary-cause 0)))))
+;; This function is called also from one place in fileio.c. We call
+;; this function, rather than undoable-change because it reduces the
+;; number of lisp functions we have to use fboundp for to avoid
+;; bootstrap issues.
+(defun undo-auto--undoable-change-no-timer ()
+ "Record `current-buffer' as changed."
+ (add-to-list 'undo-auto--undoably-changed-buffers (current-buffer)))
+
(defun undo-auto--undoable-change ()
"Called after every undoable buffer change."
- (add-to-list 'undo-auto--undoably-changed-buffers (current-buffer))
+ (undo-auto--undoable-change-no-timer)
(undo-auto--boundary-ensure-timer))
;; End auto-boundary section
diff --git a/src/fileio.c b/src/fileio.c
index b11f923..3005ca3 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -3436,6 +3436,9 @@ by calling `format-decode', which see. */)
if (!NILP (BVAR (current_buffer, read_only)))
Fbarf_if_buffer_read_only (Qnil);
+ if (!NILP (Ffboundp (Qundo_auto__undoable_change_no_timer)))
+ call0 (Qundo_auto__undoable_change_no_timer);
+
val = Qnil;
p = Qnil;
orig_filename = Qnil;
@@ -5797,6 +5800,8 @@ syms_of_fileio (void)
which gives a list of operations it handles. */
DEFSYM (Qoperations, "operations");
+ DEFSYM (Qundo_auto__undoable_change_no_timer,
"undo-auto--undoable-change-no-timer");
+
DEFSYM (Qexpand_file_name, "expand-file-name");
DEFSYM (Qsubstitute_in_file_name, "substitute-in-file-name");
DEFSYM (Qdirectory_file_name, "directory-file-name");
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-25 8f9c1ed: Fix missing undo-boundary on revert-buffer.,
Phillip Lord <=