emacs
/
emacs-color-theme-solarized
mirror of https://github.com/sellout/emacs-color-theme-solarized.git
1
0
Fork 0
Code Issues Releases Wiki Activity

Make 'which-flet' a macro. 

I started getting the "Invalid function: (find-color ...." error on Emacs 24.3.1
after an update and this change fixed it.
This commit is contained in:
Mikhail Glushenkov 2014-07-07 03:15:15 +02:00
parent 6a2c7ca018
commit 1dd750a925
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
solarized-definitions.el
View File

@ -77,13 +77,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 (or (> emacs-major-version 24)
(and (>= emacs-major-version 24) (> emacs-minor-version 2)))
(fset 'which-flet 'cl-flet)
(fset 'which-flet 'flet))
(defmacro which-flet (bindings &rest body)
"This macro will expand either to flet or cl-flet depending on
the Emacs version. flet was deprecated in in 24.3"
(eval-when-compile
(if (or (> emacs-major-version 24)
(and (>= emacs-major-version 24) (> emacs-minor-version 2)))
`(cl-flet ,bindings ,@body)
`(flet ,bindings ,@body))))
(defun solarized-color-definitions (mode)
(which-flet ((find-color (name)