[elpa] 03/15: Make U-> 【⇧Shift+U】

[Matthew Fidler]

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

commit 9c75d0a99fe442a2b0c8b47725876645963d1b6d
Author: Matthew L. Fidler <address@hidden>
Date:   Thu Jul 3 10:04:23 2014 -0500

    Make U-> 【⇧Shift+U】
---
 ergoemacs-translate.el |    9 ++++++---
 1 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/ergoemacs-translate.el b/ergoemacs-translate.el
index c4fe3c2..a58d2a7 100644
--- a/ergoemacs-translate.el
+++ b/ergoemacs-translate.el
@@ -148,6 +148,9 @@ This assumes `ergoemacs-use-unicode-char' is non-nil.  When
                           (looking-at "-\\(RET\\|SPC\\|ESC\\)")))
                 (replace-match (format "-S%s%s" (downcase (match-string 1)) 
(match-string 2)))))
             (goto-char (point-min))
+            (while (re-search-forward "\\_<[A-Z]\\_>" nil t)
+              (replace-match (format "S-%s" (match-string 0))))
+            (goto-char (point-min))
             (while (re-search-forward "\\(S-\\)\\{2,\\}" nil t)
               (replace-match "S-" t t))
             (goto-char (point-min))
@@ -202,9 +205,9 @@ This assumes `ergoemacs-use-unicode-char' is non-nil.  When
             (goto-char (point-min))
             (while (re-search-forward "next>" nil t)
               (replace-match "PgDn>" t))
-            (goto-char (point-min))
-            (while (re-search-forward "[+]\\([[:lower:]]\\)\\(】\\|\\]\\)" nil 
t)
-              (replace-match (upcase (match-string 0)) t t))
+            ;; (goto-char (point-min))
+            ;; (while (re-search-forward "[+]\\([[:lower:]]\\)\\(】\\|\\]\\)" 
nil t)
+            ;;   (replace-match (upcase (match-string 0)) t t))
             (when (and (eq system-type 'darwin)
                        (string= "⇧" (ergoemacs-unicode-char "⇧" ""))
                        (string= "⌘" (ergoemacs-unicode-char "⌘" ""))