diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2015-08-09 07:48:00 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2015-08-09 07:48:23 -0700 |
| commit | 5091586f5704280e04dc3d12354965d24693f0d5 (patch) | |
| tree | b6727c9f3864fef6999dd54fb0d78c7f67ce8462 /lisp/org/org-src.el | |
| parent | cec82457f27476dd6f2882649f1b0e7ad342338f (diff) | |
| download | emacs-5091586f5704280e04dc3d12354965d24693f0d5.tar.gz | |
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.
Diffstat (limited to 'lisp/org/org-src.el')
| -rw-r--r-- | lisp/org/org-src.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/org/org-src.el b/lisp/org/org-src.el index 5c2ceaf341b..12d7fa1264c 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)) |