Merge pull request #149 from schuster/cl-copy-list-bug
Replace cl-copy-list with copy-sequence
This commit is contained in:
commit
5ba8f13371
|
@ -1,8 +1,7 @@
|
||||||
(eval-when-compile
|
(eval-when-compile
|
||||||
(unless (require 'cl-lib nil t)
|
(unless (require 'cl-lib nil t)
|
||||||
(require 'cl)
|
(require 'cl)
|
||||||
(defalias 'cl-case 'case)
|
(defalias 'cl-case 'case))
|
||||||
(defalias 'cl-copy-list 'copy-list))
|
|
||||||
)
|
)
|
||||||
|
|
||||||
(defconst solarized-description
|
(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)
|
(defun solarized-face-for-index (facespec index &optional light)
|
||||||
"Creates a face from facespec where the colors use the names from
|
"Creates a face from facespec where the colors use the names from
|
||||||
`solarized-colors`."
|
`solarized-colors`."
|
||||||
(let ((new-fontspec (cl-copy-list facespec)))
|
(let ((new-fontspec (copy-sequence facespec)))
|
||||||
(dolist (property '(:foreground :background :color))
|
(dolist (property '(:foreground :background :color))
|
||||||
(let ((color-name (plist-get new-fontspec property)))
|
(let ((color-name (plist-get new-fontspec property)))
|
||||||
(when color-name
|
(when color-name
|
||||||
|
|
Loading…
Reference in New Issue