summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorZhu Zihao <all_but_last@163.com>2021-02-15 13:55:11 +0800
committerjao <jao@gnu.org>2021-02-15 06:38:38 +0000
commitec460565831d206fc3109b82e3a4cb2db1fa7850 (patch)
treee63b265ebf75783512d2b75d969439212ea21fe4 /elisp
parent248d67f7632c191cf97955d346915736692bda72 (diff)
downloadgeiser-ec460565831d206fc3109b82e3a4cb2db1fa7850.tar.gz
geiser-ec460565831d206fc3109b82e3a4cb2db1fa7850.tar.bz2
Determine the display string of command key dynamically.
* elisp/geiser-repl.el(geiser-repl--sentinel): Use `substitute-command-keys'.
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-repl.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index a18025c..3311c77 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -694,7 +694,9 @@ If SAVE-HISTORY is non-nil, save CMD in the REPL history."
(when geiser-repl-delete-last-output-on-exit-p
(comint-kill-region comint-last-input-start (point)))
(insert "\nIt's been nice interacting with you!\n")
- (insert "Press C-c C-z to bring me back.\n"))))))
+ (insert
+ (substitute-command-keys
+ "Press \\[switch-to-geiser] to bring me back.\n")))))))
(defun geiser-repl--on-kill ()
(geiser-repl--on-quit)