mlf176f2 pushed a commit to branch externals/ergoemacs-mode in repository elpa.
commit 285e70acfad6945aa56e700867426ca5b3c1090f Author: Matthew L. Fidler <[email protected]> Date: Fri Jun 6 09:00:07 2014 -0500 Fix typo --- ergoemacs-theme-engine.el | 39 ++++++++++++++++++--------------------- 1 files changed, 18 insertions(+), 21 deletions(-) diff --git a/ergoemacs-theme-engine.el b/ergoemacs-theme-engine.el index e8592be..29c7bd7 100644 --- a/ergoemacs-theme-engine.el +++ b/ergoemacs-theme-engine.el @@ -893,27 +893,24 @@ ergoemacs-get-keymaps-for-hook OBJ HOOK") (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)) - (fun (nth 1 init)) - ret) - (cond - ((not (boundp var)) ;; Do nothing, not bound yet. - ) - ((assq var ergoemacs-applied-inits) - ;; Already applied, Do nothing for now. - ) - ((and (string-match-p "-mode$" (symbol-name var)) - (ignore-errors (commandp var t))) - (push (list var (if (symbol-value var) 1 -1)) - ergoemacs-applied-inits) - ;; 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))))))) + (dolist (init (ergoemacs-get-inits obj)) + (cond + ((not (boundp (nth 0 init))) ;; Do nothing, not bound yet. + ) + ((assq (nth 0 init) ergoemacs-applied-inits) + ;; Already applied, Do nothing for now. + ) + ((and (string-match-p "-mode$" (symbol-name (nth 0 init))) + (ignore-errors (commandp (nth 0 init) t))) + (push (list (nth 0 init) (if (symbol-value (nth 0 init)) 1 -1)) + ergoemacs-applied-inits) + ;; Minor mode toggle... (minor-mode deferred-arg) + (funcall (nth 0 init) (funcall (nth 1 init)))) + (t + ;; (Nth 0 Init)iable state change + (push (list (nth 0 init) (symbol-value (nth 0 init))) + ergoemacs-applied-inits) + (set (nth 0 init) (funcall (nth 1 init))))))) (defun ergoemacs-remove-inits () "Remove the applied initilizations of modes and variables.
