Use show/hide

Author: jcs090218

auto-scroll-bar.el

@@ -57,14 +57,6 @@
   :type 'boolean
   :group 'auto-scroll-bar)
 
-(defcustom auto-scroll-bar-delay 0.2
-  "Time to update scroll-bars state."
-  :type 'float
-  :group 'auto-scroll-bar)
-
-(defvar auto-scroll-bar--timer nil
-  "Timer to do the show/hide task.")
-
 ;;
 ;; (@* "Util" )
 ;;
@@ -123,7 +115,12 @@
 
 (defun auto-scroll-bar--update (win show-v show-h &optional persistent)
   "Update scrollbar WIN, SHOW-V, SHOW-H, PERSISTENT."
-  (set-window-scroll-bars win nil show-v nil show-h persistent)
+  ;;(set-window-scroll-bars win nil show-v nil show-h persistent)
+  (let* ((bars (window-scroll-bars win))
+         (shown-v (nth 2 bars))
+         (shown-h (nth 5 bars)))
+    (when (or (not (eq shown-v show-v)) (not (eq shown-h show-h)))
+      (set-window-scroll-bars win nil show-v nil show-h persistent)))
   (save-window-excursion (ignore-errors (enlarge-window 1))))  ; refresh
 
 (defun auto-scroll-bar--show-hide (win)
@@ -135,16 +132,10 @@
             (show-h (auto-scroll-bar--show-h-p)))
         (auto-scroll-bar--update win show-v show-h)))))
 
-(defun auto-scroll-bar--start-task ()
-  ""
-  (auto-scroll-bar--with-no-redisplay
-    (dolist (win (window-list)) (auto-scroll-bar--show-hide win))))
-
 (defun auto-scroll-bar--change (&rest _)
   "Window state change."
-  (when (timerp auto-scroll-bar--timer) (cancel-timer auto-scroll-bar--timer))
-  (setq auto-scroll-bar--timer
-        (run-with-idle-timer auto-scroll-bar-delay nil #'auto-scroll-bar--start-task)))
+  (auto-scroll-bar--with-no-redisplay
+    (dolist (win (window-list)) (auto-scroll-bar--show-hide win))))
 
 (defun auto-scroll-bar--enable ()
   "Enable function `auto-scroll-bar-mode'."