summaryrefslogtreecommitdiff
path: root/spinner.el
diff options
context:
space:
mode:
authorArtur Malabarba <bruce.connor.am@gmail.com>2015-03-07 21:17:05 -0300
committerArtur Malabarba <bruce.connor.am@gmail.com>2015-03-07 21:17:05 -0300
commita7b4e52766977b58c6b9899305e962a2b5235bda (patch)
tree960e8415abb024978b1e2f9085d2cefd21b111e2 /spinner.el
parent9477ee899d62259d4b946f243cdcdd9cdeb1e910 (diff)
Require cl-lib
Diffstat (limited to 'spinner.el')
-rw-r--r--spinner.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/spinner.el b/spinner.el
index 95d1568..0132bf7 100644
--- a/spinner.el
+++ b/spinner.el
@@ -4,6 +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 @@
;;; Code:
+(require 'cl-lib)
(defconst spinner-types
'((3-line-clock . ["┤" "┘" "┴" "└" "├" "┌" "┬" "┐"])
@@ -137,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)))