Replace cl-copy-list with copy-sequence
This commit is contained in:
parent
ba6b17ba9b
commit
3091c93ca3
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue