]> code.delx.au - gnu-emacs-elpa/commitdiff
Merge commit 'a7b4e52766977b58c6b9899305e962a2b5235bda'
authorArtur Malabarba <bruce.connor.am@gmail.com>
Sun, 8 Mar 2015 00:17:26 +0000 (21:17 -0300)
committerArtur Malabarba <bruce.connor.am@gmail.com>
Sun, 8 Mar 2015 00:17:26 +0000 (21:17 -0300)
1  2 
packages/spinner/spinner.el

index 95d15684b534e6a1346aeaaaa0086a68881ae533,0132bf718fa5fe6a6ebfed4d0d9e37e026fdd1aa..0132bf718fa5fe6a6ebfed4d0d9e37e026fdd1aa
@@@ -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 @@@
  
  \f
  ;;; 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)))