diff options
| author | Zhu Zihao <all_but_last@163.com> | 2021-02-15 13:55:11 +0800 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-02-15 06:38:38 +0000 |
| commit | ec460565831d206fc3109b82e3a4cb2db1fa7850 (patch) | |
| tree | e63b265ebf75783512d2b75d969439212ea21fe4 | |
| parent | 248d67f7632c191cf97955d346915736692bda72 (diff) | |
| download | geiser-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'.
| -rw-r--r-- | elisp/geiser-repl.el | 4 |
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) |