mlf176f2 pushed a commit to branch externals/ergoemacs-mode in repository elpa.
commit 9c75d0a99fe442a2b0c8b47725876645963d1b6d Author: Matthew L. Fidler <[email protected]> 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 "⌘" ""))
