[elpa] scratch/add-vdiff f481a82 112/258: Add refresh timer delay

[Justin Burkett]

branch: scratch/add-vdiff
commit f481a823649078755d97818a14915b0e525315b2
Author: justbur <address@hidden>
Commit: justbur <address@hidden>

    Add refresh timer delay
---
 vdiff.el | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/vdiff.el b/vdiff.el
index f1fe921..3572151 100644
--- a/vdiff.el
+++ b/vdiff.el
@@ -181,6 +181,7 @@ because those are handled differently.")
 (defvar vdiff--setting-vscroll nil)
 (defvar vdiff--diff-stale nil)
 (defvar vdiff--after-change-timer nil)
+(defvar vdiff--after-change-refresh-delay 1)
 
 ;; * Utilities
 
@@ -1034,11 +1035,15 @@ buffer)."
 ;;                  (eq vdiff-subtraction-style 'full))
 ;;         (vdiff--scroll-function)))))
 
-(defun vdiff--after-change-function (beg _end _len)
+(defun vdiff--after-change-function (&rest _)
   (unless vdiff--diff-stale
     (setq vdiff--diff-stale t)
+    (when (timerp vdiff--after-change-timer)
+      (cancel-timer vdiff--after-change-timer))
     (setq vdiff--after-change-timer
-          (run-with-idle-timer 2 nil (lambda () (vdiff-refresh))))))
+          (run-with-idle-timer
+           vdiff--after-change-refresh-delay
+           nil #'vdiff-refresh))))
 
 (defvar vdiff--bottom-left-angle-bits
   (let ((vec (make-vector 13 (+ (expt 2 7) (expt 2 6)))))