[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 23/117: Fix (substitute-command-keys "\\[recover-session]")
From: |
Matthew Fidler |
Subject: |
[elpa] 23/117: Fix (substitute-command-keys "\\[recover-session]") |
Date: |
Fri, 25 Jul 2014 13:23:57 +0000 |
mlf176f2 pushed a commit to branch externals/ergoemacs-mode
in repository elpa.
commit fa5d8446dbaa09f9464bc0bd7bc647dfe1d59911
Author: Matthew L. Fidler <address@hidden>
Date: Wed Jul 16 07:02:07 2014 -0500
Fix (substitute-command-keys "\\[recover-session]")
---
ergoemacs-translate.el | 10 +++++-----
1 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/ergoemacs-translate.el b/ergoemacs-translate.el
index 13b036a..51c7543 100644
--- a/ergoemacs-translate.el
+++ b/ergoemacs-translate.el
@@ -130,11 +130,11 @@ This assumes `ergoemacs-use-unicode-char' is non-nil.
When
(defun ergoemacs-pretty-key (code)
"Creates Pretty keyboard binding from kbd CODE from M- to Alt+"
(if (not code) ""
- (if (string-match-p "^\\(M-x\\|<execute>\\) " code)
- (if ergoemacs-use-M-x-p
- code
- (replace-match ergoemacs-M-x t t code))
- (save-match-data
+ (save-match-data
+ (if (string-match "^\\(M-x\\|<execute>\\) " code)
+ (if ergoemacs-use-M-x-p
+ code
+ (replace-match ergoemacs-M-x t t code))
(let* ((ob (or (and ergoemacs-use-unicode-brackets
(ergoemacs-unicode-char "【" "[")) "["))
(cb (or (and ergoemacs-use-unicode-brackets
(ergoemacs-unicode-char "】" "]")) "]"))
(ret (concat ob (replace-regexp-in-string
- [elpa] 18/117: Use save-match-data with ergoemacs-pretty-key, (continued)
- [elpa] 18/117: Use save-match-data with ergoemacs-pretty-key, Matthew Fidler, 2014/07/25
- [elpa] 13/117: Remove pop dependence, Matthew Fidler, 2014/07/25
- [elpa] 17/117: Add rudimentary guide-key support; F1/C-h activates guide-key, Matthew Fidler, 2014/07/25
- [elpa] 14/117: Attempt Lexical Scoping for ergoemacs-translate.el, Matthew Fidler, 2014/07/25
- [elpa] 20/117: Add left/right to pretty key descriptions, Matthew Fidler, 2014/07/25
- [elpa] 19/117: Pretty key cleanup, Matthew Fidler, 2014/07/25
- [elpa] 22/117: Fix guide-key-mode requirement, Matthew Fidler, 2014/07/25
- [elpa] 24/117: Comment ergoemacs-substitute-command-keys, Matthew Fidler, 2014/07/25
- [elpa] 21/117: Better guide-key support, Matthew Fidler, 2014/07/25
- [elpa] 25/117: Add command prompt here and powershell here, Matthew Fidler, 2014/07/25
- [elpa] 23/117: Fix (substitute-command-keys "\\[recover-session]"),
Matthew Fidler <=
- [elpa] 27/117: Fix recursive loading in ergoemacs-mode source, Matthew Fidler, 2014/07/25
- [elpa] 30/117: Declare w32-long-file-name, Matthew Fidler, 2014/07/25
- [elpa] 29/117: Cleanup byte compile, Matthew Fidler, 2014/07/25
- [elpa] 31/117: More emcompassing shell prompt regexp, Matthew Fidler, 2014/07/25
- [elpa] 26/117: Fix load dependence, See Issue #232, Matthew Fidler, 2014/07/25
- [elpa] 33/117: Added space as separtor for PS1 prompt, Matthew Fidler, 2014/07/25
- [elpa] 35/117: Remap shell to ergoemacs-shell-here, Matthew Fidler, 2014/07/25
- [elpa] 28/117: Add unix shell support, Matthew Fidler, 2014/07/25
- [elpa] 36/117: Add eshell here and powershell key, Matthew Fidler, 2014/07/25
- [elpa] 37/117: Make C-u show ergoemacs-keys when unspecified, Matthew Fidler, 2014/07/25