[elpa] externals/undo-tree c00c1fe 031/195: Add new undo-tree-kill-visualizer to before-change-functions hook

[Stefan Monnier]

branch: externals/undo-tree
commit c00c1feeddb46e962dc9cf00af51ddb34c9768d3
Author: tsc25 <tsc25@cantab.net>
Commit: tsc25 <tsc25@cantab.net>

    Add new undo-tree-kill-visualizer to before-change-functions hook
    to kill visualizer as soon as original buffer is modified.
---
 undo-tree.el | 22 ++++++++++++++++++----
 1 file changed, 18 insertions(+), 4 deletions(-)

diff --git a/undo-tree.el b/undo-tree.el
index de0f78d..2479447 100644
--- a/undo-tree.el
+++ b/undo-tree.el
@@ -513,6 +513,7 @@ in visualizer.")
 
 
 
+
 ;;; =================================================================
 ;;;                     Setup default keymaps
 
@@ -687,6 +688,7 @@ in visualizer.")
 
 
 
+
 ;;; =====================================================================
 ;;;              Basic undo-tree data structure functions
 
@@ -952,6 +954,7 @@ which is defined in the `warnings' library.\n")
 
 
 
+
 ;;; =====================================================================
 ;;;         Utility functions for handling `buffer-undo-list'
 
@@ -1022,6 +1025,7 @@ which is defined in the `warnings' library.\n")
 
 
 
+
 ;;; =====================================================================
 ;;;                        Undo-tree commands
 
@@ -1050,7 +1054,6 @@ Within the undo-tree visualizer, the following keys are 
available:
   (unless undo-tree-mode (setq buffer-undo-list nil)))
 
 
-
 (defun turn-on-undo-tree-mode ()
   "Enable undo-tree-mode."
   (undo-tree-mode 1))
@@ -1226,6 +1229,8 @@ using `undo-tree-redo'."
     (setq buffer-undo-tree (make-undo-tree)))
   ;; transfer entries accumulated in `buffer-undo-list' to `buffer-undo-tree'
   (undo-list-transfer-to-tree)
+  ;; add hook to kill visualizer buffer if original buffer is changed
+  (add-hook 'before-change-functions 'undo-tree-kill-visualizer nil t)
   ;; prepare *undo-tree* buffer, then draw tree in it
   (let ((undo-tree buffer-undo-tree)
         (buff (current-buffer)))
@@ -1239,6 +1244,17 @@ using `undo-tree-redo'."
     (setq buffer-read-only t)))
 
 
+(defun undo-tree-kill-visualizer (&rest dummy)
+  ;; Kill visualizer. Added to `before-change-functions' hook of original
+  ;; buffer when visualizer is invoked.
+  (unwind-protect
+      (save-excursion
+       (set-buffer " *undo-tree*")
+       (undo-tree-visualizer-quit))
+    ;; remove hook now that visualizer has been killed
+    (remove-hook 'before-change-functions 'undo-tree-kill-visualizer t)))
+
+
 
 (defun undo-tree-draw-tree (undo-tree)
   ;; Draw UNDO-TREE in current buffer.
@@ -1276,7 +1292,6 @@ using `undo-tree-redo'."
     (undo-tree-draw-node (undo-tree-current undo-tree) 'current)))
 
 
-
 (defun undo-tree-highlight-active-branch (node)
   ;; Draw highlighted active branch below NODE in current buffer.
   (let ((stack (list node)))
@@ -1293,7 +1308,6 @@ using `undo-tree-redo'."
       (setq stack (append stack node)))))
 
 
-
 (defun undo-tree-draw-node (node &optional current)
   ;; Highlight NODE as current node.
   (goto-char (undo-tree-node-marker node))
@@ -1312,7 +1326,6 @@ using `undo-tree-redo'."
     (put-text-property (point) (1+ (point)) 'undo-tree-node node)))
 
 
-
 (defun undo-tree-draw-subtree (node &optional active-branch)
   ;; Draw subtree rooted at NODE. The subtree will start from point.
   ;; If ACTIVE-BRANCH is non-nil, just draw active branch below NODE.
@@ -1507,6 +1520,7 @@ using `undo-tree-redo'."
 
 
 
+
 ;;; =====================================================================
 ;;;                    Visualizer mode commands