Use cl-rotatef

This commit is contained in:
Takayuki YAMAGUCHI 2022-12-09 09:18:39 +09:00
parent a0490ed3b8
commit c2e7eca907
1 changed files with 1 additions and 1 deletions

View File

@ -165,7 +165,7 @@ the \"Gen RGB\" column in solarized-definitions.el to improve them further."
(italic (if solarized-italic 'italic 'unspecified))) (italic (if solarized-italic 'italic 'unspecified)))
(cond ((eq 'high solarized-contrast) (cond ((eq 'high solarized-contrast)
(let ((orig-base3 base3)) (let ((orig-base3 base3))
(rotatef base01 base00 base0 base1 base2 base3) (cl-rotatef base01 base00 base0 base1 base2 base3)
(setf base3 orig-base3))) (setf base3 orig-base3)))
((eq 'low solarized-contrast) ((eq 'low solarized-contrast)
(setf back base02 (setf back base02