Merge pull request #106 from BryanCuneo/master

Use cl-flet instead of flet in Emacs version >= 24.3
This commit is contained in:
Greg Pfeil 2014-03-20 08:47:01 -06:00
commit 0d189230e8
1 changed files with 9 additions and 2 deletions

View File

@ -76,8 +76,15 @@ the \"Gen RGB\" column in solarized-definitions.el to improve them further."
column is a different set, one of which will be chosen based on term
capabilities, etc.")
(defvar which-flet
"This variable will store either flet or cl-flet depending on the Emacs
version. flet was deprecated in in 24.3")
(if (and (> emacs-major-version 24) (> emacs-minor-version 2))
(fset 'which-flet 'cl-flet)
(fset 'which-flet 'flet))
(defun solarized-color-definitions (mode)
(flet ((find-color (name)
(which-flet ((find-color (name)
(let* ((index (if window-system
(if solarized-degrade
3
@ -143,7 +150,7 @@ the \"Gen RGB\" column in solarized-definitions.el to improve them further."
(bg-violet `(:background ,violet))
(bg-blue `(:background ,blue))
(bg-cyan `(:background ,cyan))
(fg-base03 `(:foreground ,base03))
(fg-base02 `(:foreground ,base02))
(fg-base01 `(:foreground ,base01))