From a7b4e52766977b58c6b9899305e962a2b5235bda Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Sat, 7 Mar 2015 21:17:05 -0300 Subject: Require cl-lib --- spinner.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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 ;; 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))) -- cgit v1.2.3