X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/690a61b11ab405b18e6e13d3ee6f74841934bbb4..23a624ca1d40fa9cefd7229ac6152b79278a6517:/packages/spinner/spinner.el

diff --git a/packages/spinner/spinner.el b/packages/spinner/spinner.el
index 95d15684b..a21bf42a5 100644
--- a/packages/spinner/spinner.el
+++ b/packages/spinner/spinner.el
@@ -1,9 +1,10 @@
 ;;; spinner.el --- Add spinners and progress-bars to the mode-line for ongoing operations -*- lexical-binding: t; -*-
 
-;; Copyright (C) 2015  Artur Malabarba
+;; Copyright (C) 2015 Free Software Foundation, Inc.
 
 ;; 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)))