mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Remove no-op calls to substitute-command-keys

Browse source 
* 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.
This commit is contained in:
Paul Eggert 2015-08-09 07:48:00 -07:00
parent cec82457f2
commit 5091586f57
2 changed files with 3 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/org/org-src.el
View file

@ -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))