[elpa] 37/117: Make C-u show ergoemacs-keys when unspecified

[Matthew Fidler]

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

commit ff7c4dfc988691f31baa6358d6a32f46a926917b
Author: Matthew L. Fidler <address@hidden>
Date:   Wed Jul 16 12:44:16 2014 -0500

    Make C-u show ergoemacs-keys when unspecified
---
 ergoemacs-advices.el |    6 ++++++
 1 files changed, 6 insertions(+), 0 deletions(-)

diff --git a/ergoemacs-advices.el b/ergoemacs-advices.el
index ddabc76..7ee7269 100644
--- a/ergoemacs-advices.el
+++ b/ergoemacs-advices.el
@@ -510,6 +510,12 @@ Otherwise, return a new string, without any text 
properties."
            (setq pt (match-beginning 0))
            (when (string=  "\\=" (substring ret pt (min (+ pt 2) (length 
ret))))
              (setq pt (+ pt 2))))
+          (setq pt 0)
+          (while (string-match "\\<C-u\\>" ret pt)
+            (setq string
+                  (ergoemacs-substitute-command "\\[universal-argument]" 
"\\<global-map>"))
+            (setq ret (replace-match string t t ret))
+            (setq pt (+ (length string) (match-beginning 0))))
          (when (not ergoemacs-use-M-x-p)
            (setq ret (replace-regexp-in-string "\\(\\<M-x\\|<execute>\\) " 
(ergoemacs-substitute-command "\\[execute-extended-command] " "\\<global-map>")
                                                ret t t))))