Change pulse-line to pulse-line-current-window

It doesn't currently work, but maybe will be easier to change when I'm ready...

1 files changed, 10 insertions, 5 deletions

@@ -723,16 +723,21 @@ specific to most general, they are these:
            pulse-delay 0.5
            pulse-iterations 1)
 
-  (defun pulse-line (&rest _)
-    "Pulse the current line."
-    (pulse-momentary-highlight-one-line (point)))
+  ;; XXX: this doesn't work yet.  I only want to pulse the line in the active
+  ;; window, so when I have the same buffer viewed in multiple windows I can
+  ;; still see where my cursor is.  To see the issue, C-x 2 then C-x o a few
+  ;; times.
+  (defun pulse-line-current-window (&rest _)
+    "Pulse the current line, but only if this window is active."
+    (pulse-momentary-highlight-one-line (window-point (selected-window))))
   
   (dolist (func '(scroll-up-command
                   scroll-down-command
-                  recenter-top-bottom other-window
+                  recenter-top-bottom
+                  other-window
                   switch-to-buffer
                   redraw-frame))
-    (advice-add func :after #'pulse-line)))
+    (advice-add func :after #'pulse-line-current-window)))
 
 (setup re-builder
   (require 'acdw-re)