[elpa] 55/287: Nicer theme debugging display

[Matthew Fidler]

mlf176f2 pushed a commit to branch externals/ergoemacs-mode
in repository elpa.

commit 3d467dd3c3ec77d82cb67a7c54dc10a1be921817
Author: Matthew L. Fidler <address@hidden>
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) "****"))