mlf176f2 pushed a commit to branch externals/ergoemacs-mode in repository elpa.
commit 3d467dd3c3ec77d82cb67a7c54dc10a1be921817 Author: Matthew L. Fidler <[email protected]> Date: Fri Jun 6 08:14:15 2014 -0500 Nicer theme debugging display --- ergoemacs-theme-engine.el | 12 ++++++++---- 1 files changed, 8 insertions(+), 4 deletions(-) diff --git a/ergoemacs-theme-engine.el b/ergoemacs-theme-engine.el index 25f705e..5c41c01 100644 --- a/ergoemacs-theme-engine.el +++ b/ergoemacs-theme-engine.el @@ -234,7 +234,8 @@ modify-map deferred-keys full-map) obj - (ergoemacs-debug "%s %s" stars object-name) + (ergoemacs-debug "%s %s" (or (and (string= stars "") "Keymap:") + stars) object-name) (ergoemacs-debug "Deferred Keys: %s" deferred-keys) (cond ((ergoemacs-keymap-empty-p read-map) @@ -898,9 +899,12 @@ ergoemacs-get-keymaps-for-hook OBJ HOOK") (ergoemacs-debug "*** Hooks") (dolist (hook (ergoemacs-get-hooks obj)) (ergoemacs-debug "**** %s" hook) - (dolist (map (ergoemacs-get-keymaps-for-hook obj hook)) - (ergoemacs-debug-obj (ergoemacs-get-fixed-map obj map) - "*****"))) + (setq tmp (ergoemacs-get-keymaps-for-hook obj hook)) + (if (= 1 (length tmp)) + (ergoemacs-debug-obj (ergoemacs-get-fixed-map obj (nth 0 tmp)) "") + (dolist (map tmp) + (ergoemacs-debug-obj (ergoemacs-get-fixed-map obj map) + "*****")))) (ergoemacs-debug "*** Emulations" ) (dolist (mode (ergoemacs-get-hooks obj "-mode\\'")) (ergoemacs-debug-obj (ergoemacs-get-fixed-map obj mode) "****"))
