diff --git a/modules/ui/nav-flash/autoload.el b/modules/ui/nav-flash/autoload.el index 6c7485249..f22601056 100644 --- a/modules/ui/nav-flash/autoload.el +++ b/modules/ui/nav-flash/autoload.el @@ -16,11 +16,10 @@ jumping to another part of the file)." (defun +nav-flash-blink-cursor-maybe (&rest _) "Like `+nav-flash-blink-cursor', but no-ops if in special-mode or term-mode, or triggered from one of `+nav-flash-exclude-commands'." - (unless (or (memq this-command '(mouse-drag-region evil-mouse-drag-region)) + (unless (or (memq this-command +nav-flash-exclude-commands) (bound-and-true-p so-long-minor-mode) (eq major-mode 'so-long-mode) (derived-mode-p 'special-mode 'term-mode) - (memq this-command +nav-flash-exclude-commands) (and (equal (point-marker) (car +nav-flash--last-point)) (equal (selected-window) (cdr +nav-flash--last-point)))) (+nav-flash-blink-cursor) diff --git a/modules/ui/nav-flash/config.el b/modules/ui/nav-flash/config.el index fbd7515b2..ddede5f03 100644 --- a/modules/ui/nav-flash/config.el +++ b/modules/ui/nav-flash/config.el @@ -1,8 +1,8 @@ ;;; ui/nav-flash/config.el -*- lexical-binding: t; -*- (defvar +nav-flash-exclude-commands - '(mouse-set-point evil-mouse-drag-region - +org/dwim-at-point org-find-file org-find-file-at-mouse) + '(mouse-set-point mouse-drag-region evil-mouse-drag-region +org/dwim-at-point + org-find-file org-find-file-at-mouse) "A list of commands that should not trigger nav-flash.") (use-package! nav-flash