]> code.delx.au - gnu-emacs-elpa/commitdiff
Merge commit '9e55c293a80c6173db756200742e74cb06468ab0'
authorArtur Malabarba <bruce.connor.am@gmail.com>
Sat, 6 Feb 2016 17:19:13 +0000 (17:19 +0000)
committerArtur Malabarba <bruce.connor.am@gmail.com>
Sat, 6 Feb 2016 17:19:13 +0000 (17:19 +0000)
1  2 
packages/beacon/beacon.el

index 7b2289f406268493785f3a3cbed24c6221cbd684,422614919bda9ca9760b50a20bf8cffdf77e0790..422614919bda9ca9760b50a20bf8cffdf77e0790
@@@ -5,7 -5,7 +5,7 @@@
  ;; Author: Artur Malabarba <emacs@endlessparentheses.com>
  ;; 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 +150,7 @@@ For instance, if you want to disable be
  (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 +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))