diff options
| author | Karl Heuer | 1995-03-28 22:27:56 +0000 |
|---|---|---|
| committer | Karl Heuer | 1995-03-28 22:27:56 +0000 |
| commit | 84a99e734479c251660ea072e35ffe8d28b70b16 (patch) | |
| tree | 4aeacba315dc6290521c498f25028b866b9b5bca | |
| parent | 49f82b3d1a092f8e0d864982acaf9678e8571dd0 (diff) | |
| download | emacs-84a99e734479c251660ea072e35ffe8d28b70b16.tar.gz emacs-84a99e734479c251660ea072e35ffe8d28b70b16.zip | |
(comint-read-noecho): Use a format string, in case
PROMPT contains a percent sign.
| -rw-r--r-- | lisp/comint.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index a056ba51ea0..6e35bc0f572 100644 --- a/lisp/comint.el +++ b/lisp/comint.el | |||
| @@ -1400,8 +1400,8 @@ applications." | |||
| 1400 | (done nil)) | 1400 | (done nil)) |
| 1401 | (while (not done) | 1401 | (while (not done) |
| 1402 | (if stars | 1402 | (if stars |
| 1403 | (message "%s%s" prompt (make-string (length ans) ?*)) | 1403 | (message "%s%s" prompt (make-string (length ans) ?*)) |
| 1404 | (message prompt)) | 1404 | (message "%s" prompt)) |
| 1405 | ;; Use this instead of `read-char' to avoid "Non-character input-event". | 1405 | ;; Use this instead of `read-char' to avoid "Non-character input-event". |
| 1406 | (setq c (read-char-exclusive)) | 1406 | (setq c (read-char-exclusive)) |
| 1407 | (cond ((= c ?\C-g) | 1407 | (cond ((= c ?\C-g) |