From 5c12415f9e10bb5e7a6c2a6602bb926f9a5c1463 Mon Sep 17 00:00:00 2001 From: Zedhugh Chen Date: Sat, 29 Mar 2025 05:34:17 +0800 Subject: [PATCH] replace pulse with global-hi-line-mode --- lisp/init-theme.el | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/lisp/init-theme.el b/lisp/init-theme.el index fb96761..c480281 100644 --- a/lisp/init-theme.el +++ b/lisp/init-theme.el @@ -17,12 +17,15 @@ (with-eval-after-load 'pulse (setq pulse-delay 0.04)) -(dolist (command '(scroll-up - scroll-down - recenter)) - (advice-add command :after #'creature/pulse-line)) -(add-to-list 'window-selection-change-functions #'creature/pulse-line) - +(let ((prefer-hl-line-mode-than-pulse t)) + (if prefer-hl-line-mode-than-pulse + (global-hl-line-mode 1) + (progn + (dolist (command '(scroll-up + scroll-down + recenter)) + (advice-add command :after #'creature/pulse-line)) + (add-to-list 'window-selection-change-functions #'creature/pulse-line)))) ;; address style (add-hook 'erc-mode-hook #'goto-address-mode)