mlf176f2 pushed a commit to branch externals/ergoemacs-mode in repository elpa.
commit 5d97f4508e1b9bc765088c505105a989dac0f379 Author: Matthew L. Fidler <[email protected]> Date: Fri Jun 6 08:56:26 2014 -0500 Fix misplaced paren --- ergoemacs-theme-engine.el | 7 ++++--- 1 files changed, 4 insertions(+), 3 deletions(-) diff --git a/ergoemacs-theme-engine.el b/ergoemacs-theme-engine.el index 580bf80..e8592be 100644 --- a/ergoemacs-theme-engine.el +++ b/ergoemacs-theme-engine.el @@ -891,6 +891,7 @@ ergoemacs-get-keymaps-for-hook OBJ HOOK") ret)) (defvar ergoemacs-applied-inits '()) + (defmethod ergoemacs-apply-inits ((obj ergoemacs-theme-component-map-list)) (dolist (init (ergoemacs-apply-inits obj)) (let ((var (nth 0 init)) @@ -906,13 +907,13 @@ ergoemacs-get-keymaps-for-hook OBJ HOOK") (ignore-errors (commandp var t))) (push (list var (if (symbol-value var) 1 -1)) ergoemacs-applied-inits) - ;; Minor mode toggle... - (funcall var (funcall fun)) ;; (minor-mode deferred-arg)) + ;; Minor mode toggle... (minor-mode deferred-arg) + (funcall var (funcall fun))) (t ;; Variable state change (push (list var (symbol-value var)) ergoemacs-applied-inits) - (set var (funcall fun)))))))) + (set var (funcall fun))))))) (defun ergoemacs-remove-inits () "Remove the applied initilizations of modes and variables.
