[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 4e04a98 4/9: Make spinner-stop never signal
From: |
Artur Malabarba |
Subject: |
[elpa] master 4e04a98 4/9: Make spinner-stop never signal |
Date: |
Thu, 17 Nov 2016 13:00:47 +0000 (UTC) |
branch: master
commit 4e04a983b86ee698ff417eae4646756daef434ba
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>
Make spinner-stop never signal
---
spinner.el | 19 +++++++++++--------
1 file changed, 11 insertions(+), 8 deletions(-)
diff --git a/spinner.el b/spinner.el
index 0a0dd50..63ead1e 100644
--- a/spinner.el
+++ b/spinner.el
@@ -3,7 +3,7 @@
;; Copyright (C) 2015 Free Software Foundation, Inc.
;; Author: Artur Malabarba <address@hidden>
-;; Version: 1.6
+;; Version: 1.7
;; URL: https://github.com/Malabarba/spinner.el
;; Keywords: processes mode-line
@@ -319,13 +319,16 @@ this time, in which case it won't display at all."
(spinner-print spinner))
(defun spinner-stop (&optional spinner)
- "Stop the current buffer's spinner."
- (let* ((spinner (or spinner spinner-current))
- (timer (spinner--timer spinner)))
- (when (timerp timer)
- (cancel-timer timer))
- (setf (spinner--active-p spinner) nil)
- (force-mode-line-update)))
+ "Stop SPINNER, defaulting to the current buffer's spinner.
+It is always safe to call this function, even if there is no
+active spinner."
+ (let ((spinner (or spinner spinner-current)))
+ (when (spinner-p spinner)
+ (let ((timer (spinner--timer spinner)))
+ (when (timerp timer)
+ (cancel-timer timer)))
+ (setf (spinner--active-p spinner) nil)
+ (force-mode-line-update))))
(provide 'spinner)
- [elpa] master updated (2d6022a -> 1098790), Artur Malabarba, 2016/11/17
- [elpa] master 117b823 2/9: Offer a spinner-make-progress-bar function, Artur Malabarba, 2016/11/17
- [elpa] master a62dc35 5/9: Remove reference to thread-last, Artur Malabarba, 2016/11/17
- [elpa] master 0637791 8/9: Version 1.7.3, Artur Malabarba, 2016/11/17
- [elpa] master 4e04a98 4/9: Make spinner-stop never signal,
Artur Malabarba <=
- [elpa] master c651ba8 3/9: Allow floating-point delays, Artur Malabarba, 2016/11/17
- [elpa] master 1098790 9/9: Merge commit '0637791f005f747532b4439439a81c3415961377', Artur Malabarba, 2016/11/17
- [elpa] master 607d884 7/9: Fix #130 - Remove readonly completely, Artur Malabarba, 2016/11/17
- [elpa] master ebb5269 6/9: Fix a usage of read-only argument, Artur Malabarba, 2016/11/17
- [elpa] master 7c3c029 1/9: Update the mode-line after spinner-stop, Artur Malabarba, 2016/11/17