From: Artur Malabarba Date: Fri, 1 Apr 2016 14:05:52 +0000 (-0300) Subject: Remove reference to thread-last X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/b4d20db28d2bc3766f8700a09ddcbe5e19390218 Remove reference to thread-last --- diff --git a/packages/spinner/spinner.el b/packages/spinner/spinner.el index 63ead1e81..a02184818 100644 --- a/packages/spinner/spinner.el +++ b/packages/spinner/spinner.el @@ -3,7 +3,7 @@ ;; Copyright (C) 2015 Free Software Foundation, Inc. ;; Author: Artur Malabarba -;; 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'.")