1 files changed, 6 insertions, 5 deletions
diff --git a/init.el b/init.el
index a810370..106393d 100644
--- a/init.el
+++ b/init.el

@@ -737,11 +737,12 @@ specific to most general, they are these:
    "Pulse the current line."
    (pulse-momentary-highlight-one-line (point)))
  
-  (dolist (command '(scroll-up-command
+  (dolist (func '(scroll-up-command
-                     scroll-down-command
+                  scroll-down-command
-                     recenter-top-bottom other-window
+                  recenter-top-bottom other-window
-                     switch-to-buffer))
+                  switch-to-buffer
-    (advice-add command :after #'pulse-line)))
+                  redraw-frame))
+    (advice-add func :after #'pulse-line)))
 (setup re-builder
  (require 'acdw-re)

diff --git a/init.el b/init.el index a810370..106393d 100644 --- a/init.el +++ b/init.el
@@ -737,11 +737,12 @@ specific to most general, they are these:
737	"Pulse the current line."	737	"Pulse the current line."
738	(pulse-momentary-highlight-one-line (point)))	738	(pulse-momentary-highlight-one-line (point)))
739		739
740	(dolist (command '(scroll-up-command	740	(dolist (func '(scroll-up-command
741	scroll-down-command	741	scroll-down-command
742	recenter-top-bottom other-window	742	recenter-top-bottom other-window
743	switch-to-buffer))	743	switch-to-buffer
744	(advice-add command :after #'pulse-line)))	744	redraw-frame))
		745	(advice-add func :after #'pulse-line)))
745		746
746	(setup re-builder	747	(setup re-builder
747	(require 'acdw-re)	748	(require 'acdw-re)