emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/goto-chg ab85086 12/27: Transfer undo-list to -tree before


From: Philip Kaludercic
Subject: [nongnu] elpa/goto-chg ab85086 12/27: Transfer undo-list to -tree before using undo-tree
Date: Sun, 1 Aug 2021 18:32:59 -0400 (EDT)

branch: elpa/goto-chg
commit ab8508681e09e5e2eedb028c7a5ce4758d222636
Author: Vasilij Schneidermann <mail@vasilij.de>
Commit: Vasilij Schneidermann <mail@vasilij.de>

    Transfer undo-list to -tree before using undo-tree
---
 goto-chg.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/goto-chg.el b/goto-chg.el
index af726e7..9693b82 100644
--- a/goto-chg.el
+++ b/goto-chg.el
@@ -212,6 +212,7 @@ that is, it was previously saved or unchanged. Nil 
otherwise."
   (and (listp e) (eq (car e) t)))
 
 (defvar buffer-undo-tree)
+(declare-function undo-list-transfer-to-tree "undo-tree.el")
 (declare-function undo-tree-current "undo-tree.el")
 (declare-function undo-tree-node-undo "undo-tree.el")
 (declare-function undo-tree-node-previous "undo-tree.el")
@@ -296,6 +297,7 @@ discarded. See variable `undo-limit'."
                   ((or passed-save-entry (glc-is-filetime (car l)))
                    (setq passed-save-entry t)))
             (setq l (cdr l)))
+        (undo-list-transfer-to-tree)
         (when (not glc-seen-canary)
           (while (and (not (null l)) (not glc-seen-canary) (< n 
new-probe-depth))
             (cond ((eq 'undo-tree-canary (car l))  ; used by buffer-undo-tree



reply via email to

[Prev in Thread] Current Thread [Next in Thread]