[elpa] externals/undo-tree 45380b2 087/195: Suppress branch point messages when undo/redoing from undo-tree-set.

[Stefan Monnier]

branch: externals/undo-tree
commit 45380b28046e50d6997d7bffd60ba70bc0aa49a9
Author: Toby S. Cubitt <toby-undo-tree@dr-qubit.org>
Commit: Toby S. Cubitt <toby-undo-tree@dr-qubit.org>

    Suppress branch point messages when undo/redoing from undo-tree-set.
---
 undo-tree.el | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/undo-tree.el b/undo-tree.el
index a1a47ad..d4bb979 100644
--- a/undo-tree.el
+++ b/undo-tree.el
@@ -614,6 +614,7 @@
 ;; * create proper registerv structure using `registerv-make' when storing
 ;;   undo state in registers in `undo-tree-save-state-to-register' (and
 ;;   `undo-tree-restore-state-from-register')
+;; * suppress branch point messages when undo/redoing from `undo-tree-set'
 ;;
 ;; Version 0.3.5
 ;; * improved `undo-tree-switch-branch': display current branch number in
@@ -2514,7 +2515,9 @@ undoing."
     ;; undo deactivates mark unless undoing-in-region
     (setq deactivate-mark (not undo-in-region))
     ;; inform user if at branch point
-    (when (> (undo-tree-num-branches) 1) (message "Undo branch point!"))))
+    (when (and (called-interactively-p 'interactive)
+              (> (undo-tree-num-branches) 1))
+      (message "Undo branch point!"))))
 
 
 
@@ -2612,7 +2615,9 @@ redoing."
     ;; redo deactivates the mark unless redoing-in-region
     (setq deactivate-mark (not redo-in-region))
     ;; inform user if at branch point
-    (when (> (undo-tree-num-branches) 1) (message "Undo branch point!"))))
+    (when (and (called-interactively-p 'interactive)
+              (> (undo-tree-num-branches) 1))
+      (message "Undo branch point!"))))