[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 5091586: Remove no-op calls to substitute-command-k
From: |
Paul Eggert |
Subject: |
[Emacs-diffs] master 5091586: Remove no-op calls to substitute-command-keys |
Date: |
Sun, 09 Aug 2015 14:48:28 +0000 |
branch: master
commit 5091586f5704280e04dc3d12354965d24693f0d5
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>
Remove no-op calls to substitute-command-keys
* lisp/org/org-src.el (org-edit-src-code)
(org-edit-fixed-width-region):
* lisp/simple.el (completion-setup-function):
Remove calls to substitute-command-keys that always just return
their argument.
---
lisp/org/org-src.el | 6 ++----
lisp/simple.el | 3 +--
2 files changed, 3 insertions(+), 6 deletions(-)
diff --git a/lisp/org/org-src.el b/lisp/org/org-src.el
index 5c2ceaf..12d7fa1 100644
--- a/lisp/org/org-src.el
+++ b/lisp/org/org-src.el
@@ -270,8 +270,7 @@ the display of windows containing the Org buffer and the
code buffer."
(setq beg (move-marker beg (nth 0 info))
end (move-marker end (nth 1 info))
msg (if allow-write-back-p
- (substitute-command-keys
- "Edit, then exit with C-c ' (C-c and single quote) -- C-c
C-k to abort")
+ "Edit, then exit with C-c ' (C-c and single quote) -- C-c
C-k to abort"
"Exit with C-c ' (C-c and single quote) -- C-c C-k to abort")
code (or code (buffer-substring-no-properties beg end))
lang (or (cdr (assoc (nth 2 info) org-src-lang-modes))
@@ -468,8 +467,7 @@ the fragment in the Org-mode buffer."
(let ((line (org-current-line))
(col (current-column))
(case-fold-search t)
- (msg (substitute-command-keys
- "Edit, then exit with C-c ' (C-c and single quote) -- C-c C-k to
abort"))
+ (msg "Edit, then exit with C-c ' (C-c and single quote) -- C-c C-k to
abort")
(org-mode-p (derived-mode-p 'org-mode))
(beg (make-marker))
(end (make-marker))
diff --git a/lisp/simple.el b/lisp/simple.el
index 00c25db..2636777 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -7686,8 +7686,7 @@ Called from `temp-buffer-show-hook'."
(when completion-show-help
(goto-char (point-min))
(if (display-mouse-p)
- (insert (substitute-command-keys
- "Click on a completion to select it.\n")))
+ (insert "Click on a completion to select it.\n"))
(insert (substitute-command-keys
"In this buffer, type \\[choose-completion] to \
select the completion near point.\n\n"))))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 5091586: Remove no-op calls to substitute-command-keys,
Paul Eggert <=