Merge pull request #149 from schuster/cl-copy-list-bug

Replace cl-copy-list with copy-sequence
This commit is contained in:
Greg Pfeil 2015-04-10 13:48:25 -06:00
commit 5ba8f13371
1 changed files with 2 additions and 3 deletions

View File

@ -1,8 +1,7 @@
(eval-when-compile
(unless (require 'cl-lib nil t)
(require 'cl)
(defalias 'cl-case 'case)
(defalias 'cl-copy-list 'copy-list))
(defalias 'cl-case 'case))
)
(defconst solarized-description
@ -93,7 +92,7 @@ the \"Gen RGB\" column in solarized-definitions.el to improve them further."
(defun solarized-face-for-index (facespec index &optional light)
"Creates a face from facespec where the colors use the names from
`solarized-colors`."
(let ((new-fontspec (cl-copy-list facespec)))
(let ((new-fontspec (copy-sequence facespec)))
(dolist (property '(:foreground :background :color))
(let ((color-name (plist-get new-fontspec property)))
(when color-name