diff options
author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-03-07 21:17:05 -0300 |
---|---|---|
committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-03-07 21:17:05 -0300 |
commit | a7b4e52766977b58c6b9899305e962a2b5235bda (patch) | |
tree | 960e8415abb024978b1e2f9085d2cefd21b111e2 | |
parent | 9477ee899d62259d4b946f243cdcdd9cdeb1e910 (diff) |
Require cl-lib
-rw-r--r-- | spinner.el | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -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))) |