mlf176f2 pushed a commit to branch externals/ergoemacs-mode in repository elpa.
commit b7eeb04e7ba427c5c48fce05c61da7d6c0c447c4 Author: Matthew L. Fidler <[email protected]> Date: Sun Jun 29 23:15:12 2014 -0500 Add version information for themes --- ergoemacs-macros.el | 5 +++++ 1 files changed, 5 insertions(+), 0 deletions(-) diff --git a/ergoemacs-macros.el b/ergoemacs-macros.el index 89738af..0db6bbd 100644 --- a/ergoemacs-macros.el +++ b/ergoemacs-macros.el @@ -220,6 +220,8 @@ Uses `ergoemacs-theme-component--parse-keys-and-body' and ',(nth 0 kb) '(lambda () ,@(nth 1 kb)))) ergoemacs-theme-comp-hash))) +(declare-function ergoemacs-theme-get-version "ergoemacs-theme-engine.el") +(declare-function ergoemacs-theme-set-version "ergoemacs-theme-engine.el") (defmacro ergoemacs-test-layout (&rest keys-and-body) (let ((kb (make-symbol "body-and-plist")) (plist (make-symbol "plist")) @@ -228,6 +230,7 @@ Uses `ergoemacs-theme-component--parse-keys-and-body' and plist (nth 0 kb) body (nth 1 kb)) `(let ((old-ergoemacs-theme ergoemacs-theme) + (old-version (ergoemacs-theme-get-version)) (macro ,(if (plist-get plist ':macro) `(edmacro-parse-keys ,(plist-get plist ':macro) t))) @@ -235,6 +238,7 @@ Uses `ergoemacs-theme-component--parse-keys-and-body' and (ergoemacs-mode -1) (setq ergoemacs-theme ,(plist-get plist ':theme)) (setq ergoemacs-keyboard-layout ,(or (plist-get plist ':layout) "us")) + (ergoemacs-theme-set-version ,(or (plist-get plist ':version) nil)) (ergoemacs-mode 1) ,(if (plist-get plist :cua) `(cua-mode 1)) @@ -244,6 +248,7 @@ Uses `ergoemacs-theme-component--parse-keys-and-body' and (ergoemacs-mode -1) (setq ergoemacs-theme old-ergoemacs-theme) (setq ergoemacs-keyboard-layout old-ergoemacs-keyboard-layout) + (ergoemacs-theme-set-version old-version) (ergoemacs-mode 1))))) (fset 'ergoemacs-theme-component--parse-keys-and-body
