nav-flash: fix #15617

based on ff58823d48
This commit is contained in:
Lucius Hu 2022-07-26 02:43:44 -04:00
parent ef912d7e7a
commit fdfd9f1457
No known key found for this signature in database
GPG Key ID: 7E474E82E29B5A7A
1 changed files with 3 additions and 2 deletions

View File

@ -21,13 +21,14 @@
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
(defun nav-flash//blink-cursor (&rest _)
"Blink the line containing hte point.
"Blink the line containing the point.
This makes it clear where the cursor has landed (typically after a large motion,
like switching windows or jumping to another part of the file)."
(unless (minibufferp)
(nav-flash-show)
;; only show in the current window
(overlay-put compilation-highlight-overlay 'window (selected-window))))
(when (overlayp compilation-highlight-overlay)
(overlay-put compilation-highlight-overlay 'window (selected-window)))))
(defun nav-flash/blink-cursor-maybe (&rest _)
"Like `nav-flash//blink-cursor', but no-ops if any following condition is met.