diff options
| author | Stefan Kangas | 2022-10-04 17:39:28 +0200 |
|---|---|---|
| committer | Stefan Kangas | 2022-10-04 17:39:28 +0200 |
| commit | a36ecc408a30c76d287351b38956f998f84cb8a7 (patch) | |
| tree | a4856c4b4214b365ee8426aa00556c9548bcc282 /lisp | |
| parent | d9bd14975b60aa46408c67aa11a8a57bd5a8772a (diff) | |
| download | emacs-a36ecc408a30c76d287351b38956f998f84cb8a7.tar.gz emacs-a36ecc408a30c76d287351b38956f998f84cb8a7.zip | |
* lisp/subr.el (y-or-n-p): Use substitute-command-keys.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/subr.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 51172b1cb2d..c975c216bb6 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -3547,11 +3547,12 @@ like) while `y-or-n-p' is running)." | |||
| 3547 | (if (or (zerop l) (eq ?\s (aref prompt (1- l)))) | 3547 | (if (or (zerop l) (eq ?\s (aref prompt (1- l)))) |
| 3548 | "" " ") | 3548 | "" " ") |
| 3549 | (if dialog "" | 3549 | (if dialog "" |
| 3550 | (if help-form | 3550 | (substitute-command-keys |
| 3551 | (format "(y, n or %s) " | 3551 | (if help-form |
| 3552 | (key-description | 3552 | (format "(\\`y', \\`n' or \\`%s') " |
| 3553 | (vector help-char))) | 3553 | (key-description |
| 3554 | "(y or n) ")))))) | 3554 | (vector help-char))) |
| 3555 | "(\\`y' or \\`n') "))))))) | ||
| 3555 | ;; Preserve the actual command that eventually called | 3556 | ;; Preserve the actual command that eventually called |
| 3556 | ;; `y-or-n-p' (otherwise `repeat' will be repeating | 3557 | ;; `y-or-n-p' (otherwise `repeat' will be repeating |
| 3557 | ;; `exit-minibuffer'). | 3558 | ;; `exit-minibuffer'). |