branch: elpa/goto-chg
commit c664d8787939dfdf060d0b4cfe1240aeee62ffc8
Author: Vasilij Schneidermann <[email protected]>
Commit: Vasilij Schneidermann <[email protected]>
Ensure undo-tree-node is actually a -node
---
goto-chg.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/goto-chg.el b/goto-chg.el
index 9693b82..8b1487a 100644
--- a/goto-chg.el
+++ b/goto-chg.el
@@ -214,6 +214,7 @@ that is, it was previously saved or unchanged. Nil
otherwise."
(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-p"undo-tree.el")
(declare-function undo-tree-node-undo "undo-tree.el")
(declare-function undo-tree-node-previous "undo-tree.el")
@@ -312,7 +313,7 @@ discarded. See variable `undo-limit'."
(when (not glc-seen-canary)
(setq l (cdr l)))))
(when glc-seen-canary
- (while (< n new-probe-depth)
+ (while (and (< n new-probe-depth) (undo-tree-node-p l))
(cond ((null l)
;(setq this-command t) ; Disrupt repeat sequence
(error "No further change info"))
