[nongnu] elpa/goto-chg c664d87 13/27: Ensure undo-tree-node is actually a -node

[Philip Kaludercic]

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

    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"))