summaryrefslogtreecommitdiff
path: root/lisp/calc/calc-prog.el
diff options
context:
space:
mode:
authorStefan Kangas <stefan@marxist.se>2021-10-05 19:52:23 +0200
committerStefan Kangas <stefankangas@gmail.com>2022-08-23 21:08:38 +0200
commit67a15ce1564ce35ece24a19f00e03a36e0575746 (patch)
treeed52e213217d4337e7e47a4818f1f3b7920b2ae0 /lisp/calc/calc-prog.el
parent42496e64707905531c88dfdbab4c65c6a3c53707 (diff)
downloademacs-67a15ce1564ce35ece24a19f00e03a36e0575746.tar.gz
emacs-67a15ce1564ce35ece24a19f00e03a36e0575746.tar.bz2
emacs-67a15ce1564ce35ece24a19f00e03a36e0575746.zip
Use substitute-command-keys in a few more places
* lisp/indent.el (edit-tab-stops): * lisp/printing.el (pr-help-message, pr-show-setup): * lisp/progmodes/cperl-mode.el (cperl-narrow-to-here-doc): Use substitute-command-keys.
Diffstat (limited to 'lisp/calc/calc-prog.el')
-rw-r--r--lisp/calc/calc-prog.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/calc/calc-prog.el b/lisp/calc/calc-prog.el
index f11d9741ec7..127f6340a1e 100644
--- a/lisp/calc/calc-prog.el
+++ b/lisp/calc/calc-prog.el
@@ -1447,7 +1447,8 @@ Redefine the corresponding command."
(let ((calc-kbd-push-level 0))
(execute-kbd-macro (substring body 0 -2))))
(let ((calc-kbd-push-level (1+ calc-kbd-push-level)))
- (message "%s" "Saving modes; type Z' to restore")
+ ;; Avoid substituting the "'" character:
+ (message "%s" "Saving modes; type Z' to restore")
(recursive-edit))))))
(defun calc-kbd-pop ()