[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 57b1edc 03/11: [Fix #25] blink-when-window-scroll not bein
From: |
Artur Malabarba |
Subject: |
[elpa] master 57b1edc 03/11: [Fix #25] blink-when-window-scroll not being used |
Date: |
Fri, 30 Oct 2015 09:54:01 +0000 |
branch: master
commit 57b1edc9b6889c3413b547505314cc1d5e8d9fb6
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>
[Fix #25] blink-when-window-scroll not being used
---
beacon.el | 12 ++++++------
1 files changed, 6 insertions(+), 6 deletions(-)
diff --git a/beacon.el b/beacon.el
index ffdbcbc..6163305 100644
--- a/beacon.el
+++ b/beacon.el
@@ -204,9 +204,9 @@ COLORS applied to each one."
(defun beacon--ov-at-point ()
(car (or (seq-filter (lambda (o) (overlay-get o 'beacon))
- (overlays-in (point) (point)))
+ (overlays-in (point) (point)))
(seq-filter (lambda (o) (overlay-get o 'beacon))
- (overlays-at (point))))))
+ (overlays-at (point))))))
(defun beacon--vanish ()
"Turn off the beacon."
@@ -334,8 +334,7 @@ If DELTA is nil, return nil."
(not (eq beacon--previous-window (selected-window))))
(beacon-blink))
;; Blink for scrolling.
- ((and beacon-blink-when-window-scrolls
- beacon--window-scrolled
+ ((and beacon--window-scrolled
(equal beacon--window-scrolled (selected-window)))
(beacon-blink))
;; Blink for movement
@@ -355,8 +354,9 @@ scrolled window might not be active, but we only know that
at
If invoked outside the command loop, `post-command-hook' would be
unreliable, so just blink immediately."
- (unless (and (equal beacon--previous-window-start start-pos)
- (equal beacon--previous-window win))
+ (unless (or (and (equal beacon--previous-window-start start-pos)
+ (equal beacon--previous-window win))
+ (not beacon-blink-when-window-scrolls))
(if this-command
(setq beacon--window-scrolled win)
(setq beacon--window-scrolled nil)
- [elpa] master updated (988e91c -> af1503e), Artur Malabarba, 2015/10/30
- [elpa] master e2d9843 01/11: [#26] Fix when default background is unspecified-fg or unspecified-bg, Artur Malabarba, 2015/10/30
- [elpa] master 57b1edc 03/11: [Fix #25] blink-when-window-scroll not being used,
Artur Malabarba <=
- [elpa] master 59b6c94 04/11: [Fix #21 Fix #17] Add beacon-blink-when-point-moves-horizontally, Artur Malabarba, 2015/10/30
- [elpa] master 6f493ee 08/11: Merge pull request #29 from syohex/cl-lib, Artur Malabarba, 2015/10/30
- [elpa] master 1a6fcaf 07/11: Load cl-lib for using cl-mapcar, Artur Malabarba, 2015/10/30
- [elpa] master 0092045 10/11: Be silent when pushing mark, Artur Malabarba, 2015/10/30
- [elpa] master e3ab5c3 02/11: Improve documentation, Artur Malabarba, 2015/10/30
- [elpa] master da3d7bc 09/11: Ditch cl-lib again in lieu of seq-mapn, Artur Malabarba, 2015/10/30
- [elpa] master 4c4af24 05/11: * COPYING: New file, fix #27., Artur Malabarba, 2015/10/30
- [elpa] master d0b7011 06/11: Merge pull request #28 from NicolasPetton/master, Artur Malabarba, 2015/10/30
- [elpa] master af1503e 11/11: Merge commit '00920450d83ffe7a02bbe98997e266726819efc2', Artur Malabarba, 2015/10/30