From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Sun, 8 Mar 2015 00:17:26 +0000 (-0300)
Subject: Merge commit 'a7b4e52766977b58c6b9899305e962a2b5235bda'
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/341475f5d3e6273239a7a691550fb821ee06ae27?hp=-c

Merge commit 'a7b4e52766977b58c6b9899305e962a2b5235bda'
---

341475f5d3e6273239a7a691550fb821ee06ae27
diff --combined packages/spinner/spinner.el
index 95d15684b,0132bf718..0132bf718
--- a/packages/spinner/spinner.el
+++ b/packages/spinner/spinner.el
@@@ -4,6 -4,7 +4,7 @@@
  
  ;; Author: Artur Malabarba <bruce.connor.am@gmail.com>
  ;; Version: 1.0
+ ;; Package-Requires: ((cl-lib "0.5"))
  ;; URL: https://github.com/Bruce-Connor/spinner.el
  ;; Keywords: processes mode-line
  
@@@ -48,6 -49,7 +49,7 @@@
  
  
  ;;; Code:
+ (require 'cl-lib)
  
  (defconst spinner-types
    '((3-line-clock . ["┤" "┘" "┴" "└" "├" "┌" "┬" "┐"])
@@@ -137,7 -139,7 +139,7 @@@ is chosen as the spinner type.
  
    ;; Maybe add to mode-line.
    (unless (memq 'spinner--mode-line-construct mode-line-format)
-     (setq mode-line-format (copy-list mode-line-format))
+     (setq mode-line-format (cl-copy-list mode-line-format))
      (let ((cell (memq 'mode-line-buffer-identification mode-line-format)))
        (if cell
            (setcdr cell (cons 'spinner--mode-line-construct (cdr cell)))