feat: Ignore cogru sync

jcs-elpa · Jun 22, 2024 · d7305ad · d7305ad
1 parent 0afac7a
commit d7305ad
Showing 1 changed file with 11 additions and 4 deletions.
diff --git a/undo-tree-vf.el b/undo-tree-vf.el
@@ -76,6 +76,12 @@
   (when (undo-tree-vs--enabled-p)
     (undo-tree-kill-visualizer)))
 
+;;
+;; (@* "Externals" )
+;;
+
+(defvar cogru-inhibit-sync-hooks)
+
 ;;
 ;; (@* "Util" )
 ;;
@@ -115,10 +121,11 @@
 
 If `undo-tree-mode' is not valid, we call undo/redo function according to ARG"
   (declare (indent 1))
-  `(if (or (not undo-tree-mode) (not undo-tree-vf-mode))
-       (call-interactively (if ,arg undo-tree-vf-fallback-undo
-                             undo-tree-vf-fallback-redo))
-     ,@body))
+  `(let ((cogru-inhibit-sync-hooks t))
+     (if (or (not undo-tree-mode) (not undo-tree-vf-mode))
+         (call-interactively (if ,arg undo-tree-vf-fallback-undo
+                               undo-tree-vf-fallback-redo))
+       ,@body)))
 
 (defun undo-tree-vf--visualize ()
   "Call `undo-tree-visualize' only in window that has higher height."