ui/nav-flash: factor out redundancy
This commit is contained in:
parent
633fd7c95f
commit
a93f097f78
2 changed files with 3 additions and 4 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue