[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/spinner d15e7a7 7/7: Merge pull request #17 from thisch
From: |
Stefan Monnier |
Subject: |
[elpa] externals/spinner d15e7a7 7/7: Merge pull request #17 from thisch/clel |
Date: |
Tue, 16 Mar 2021 09:43:34 -0400 (EDT) |
branch: externals/spinner
commit d15e7a7b6395be69acda9d6464acc81d3e2ad07d
Merge: a5d721e 2c70992
Author: Artur Malabarba <artur@endlessparentheses.com>
Commit: GitHub <noreply@github.com>
Merge pull request #17 from thisch/clel
Remove usage of deprecated cl.el
---
spinner.el | 17 +++++++++--------
1 file changed, 9 insertions(+), 8 deletions(-)
diff --git a/spinner.el b/spinner.el
index 2402ccf..6403dea 100644
--- a/spinner.el
+++ b/spinner.el
@@ -4,6 +4,7 @@
;; Author: Artur Malabarba <emacs@endlessparentheses.com>
;; Version: 1.7.3
+;; Package-Requires: ((emacs "24.3"))
;; URL: https://github.com/Malabarba/spinner.el
;; Keywords: processes mode-line
@@ -98,7 +99,7 @@
;;; Code:
(eval-when-compile
- (require 'cl))
+ (require 'cl-lib))
(defconst spinner-types
'((3-line-clock . ["┤" "┘" "┴" "└" "├" "┌" "┬" "┐"])
@@ -176,10 +177,10 @@ own spinner animations."
((symbolp type) (cdr (assq type spinner-types)))
(t (error "Unknown spinner type: %s" type))))
-(defstruct (spinner
- (:copier nil)
- (:conc-name spinner--)
- (:constructor make-spinner (&optional type buffer-local
frames-per-second delay-before-start)))
+(cl-defstruct (spinner
+ (:copier nil)
+ (:conc-name spinner--)
+ (:constructor make-spinner (&optional type buffer-local
frames-per-second delay-before-start)))
(frames (spinner--type-to-frames type))
(counter 0)
(fps (or frames-per-second spinner-frames-per-second))
@@ -234,9 +235,9 @@ stop the SPINNER's timer."
(and buffer (not (buffer-live-p buffer))))
(spinner-stop spinner)
;; Increment
- (callf (lambda (x) (if (< x 0)
- (1+ x)
- (% (1+ x) (length (spinner--frames spinner)))))
+ (cl-callf (lambda (x) (if (< x 0)
+ (1+ x)
+ (% (1+ x) (length (spinner--frames spinner)))))
(spinner--counter spinner))
;; Update mode-line.
(if (buffer-live-p buffer)
- [elpa] externals/spinner updated (0637791 -> d15e7a7), Stefan Monnier, 2021/03/16
- [elpa] externals/spinner 3664d10 2/7: Fix typo, Stefan Monnier, 2021/03/16
- [elpa] externals/spinner 0dcb331 1/7: Add moon spinner frames, Stefan Monnier, 2021/03/16
- [elpa] externals/spinner a5d721e 5/7: Merge pull request #15 from Wilfred/patch-1, Stefan Monnier, 2021/03/16
- [elpa] externals/spinner 2c70992 6/7: Remove usage of deprecated cl.el, Stefan Monnier, 2021/03/16
- [elpa] externals/spinner 2f48b94 4/7: Merge pull request #12 from notetiene/master, Stefan Monnier, 2021/03/16
- [elpa] externals/spinner d15e7a7 7/7: Merge pull request #17 from thisch/clel,
Stefan Monnier <=
- [elpa] externals/spinner 4b33526 3/7: Fix #1 - Don't assume mode-line-process is a list, Stefan Monnier, 2021/03/16