emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master 02cc760 4/4: Merge commit '9e55c293a80c6173db756200742e74c


From: Artur Malabarba
Subject: [elpa] master 02cc760 4/4: Merge commit '9e55c293a80c6173db756200742e74cb06468ab0'
Date: Sat, 06 Feb 2016 19:20:04 +0000

branch: master
commit 02cc76051de74d3a81ec6b988ea3058a9fa73cfa
Merge: 18f5e3c 9e55c29
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>

    Merge commit '9e55c293a80c6173db756200742e74cb06468ab0'
---
 packages/beacon/beacon.el |    9 ++++++---
 1 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/packages/beacon/beacon.el b/packages/beacon/beacon.el
index 7b2289f..4226149 100644
--- a/packages/beacon/beacon.el
+++ b/packages/beacon/beacon.el
@@ -5,7 +5,7 @@
 ;; Author: Artur Malabarba <address@hidden>
 ;; URL: https://github.com/Malabarba/beacon
 ;; Keywords: convenience
-;; Version: 0.6.1
+;; Version: 1.0
 ;; Package-Requires: ((seq "1.11"))
 
 ;; This program is free software; you can redistribute it and/or modify
@@ -150,6 +150,7 @@ For instance, if you want to disable beacon on buffers where
 (add-hook 'beacon-dont-blink-predicates #'window-minibuffer-p)
 
 (defcustom beacon-dont-blink-major-modes '(t magit-status-mode magit-popup-mode
+                                       inf-ruby-mode
                                        gnus-summary-mode gnus-group-mode)
   "A list of major-modes where the beacon won't blink.
 Whenever the current buffer satisfies `derived-mode-p' for
@@ -300,8 +301,10 @@ Only returns `beacon-size' elements."
     (o
      (delete-overlay o)
      (save-excursion
-       (while (progn (forward-char 1)
-                     (setq o (beacon--ov-at-point)))
+       (while (and (condition-case nil
+                       (progn (forward-char 1) t)
+                     (end-of-buffer nil))
+                   (setq o (beacon--ov-at-point)))
          (let ((colors (overlay-get o 'beacon-colors)))
            (if (not colors)
                (move-overlay o (1- (point)) (point))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]