From 67a15ce1564ce35ece24a19f00e03a36e0575746 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Tue, 5 Oct 2021 19:52:23 +0200 Subject: 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. --- lisp/calc/calc-prog.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lisp/calc/calc-prog.el') 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 () -- cgit v1.2.3