]> code.delx.au - gnu-emacs-elpa/commitdiff
Remove reference to thread-last
authorArtur Malabarba <bruce.connor.am@gmail.com>
Fri, 1 Apr 2016 14:05:52 +0000 (11:05 -0300)
committerArtur Malabarba <bruce.connor.am@gmail.com>
Fri, 1 Apr 2016 14:05:52 +0000 (11:05 -0300)
packages/spinner/spinner.el

index 63ead1e81674c5b0f349e416901f7f5e4e7e529e..a02184818f53e8365811f2f594b866053f54f1b1 100644 (file)
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2015 Free Software Foundation, Inc.
 
 ;; Author: Artur Malabarba <emacs@endlessparentheses.com>
-;; Version: 1.7
+;; Version: 1.7.1
 ;; URL: https://github.com/Malabarba/spinner.el
 ;; Keywords: processes mode-line
 
@@ -131,9 +131,8 @@ CHAR is the character to use for the moving bar (defaults to =)."
   (let ((whole-string (concat (make-string (1- width) ?\s)
                               (make-string 4 (or char ?=))
                               (make-string width ?\s))))
-    (thread-last (mapcar (lambda (n) (substring whole-string n (+ n width)))
-                         (number-sequence (+ width 3) 0 -1))
-      (apply #'vector))))
+    (apply #'vector (mapcar (lambda (n) (substring whole-string n (+ n width)))
+                            (number-sequence (+ width 3) 0 -1)))))
 
 (defvar spinner-current nil
   "Spinner curently being displayed on the `mode-line-process'.")