Mercurial > emacs
comparison lisp/comint.el @ 11147:8c896f45f888
(comint-read-noecho): Use a format string, in case
PROMPT contains a percent sign.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Tue, 28 Mar 1995 22:27:56 +0000 |
parents | 77d7d3990300 |
children | 31a046cedfc8 |
comparison
equal
deleted
inserted
replaced
11146:9a14b32f5d71 | 11147:8c896f45f888 |
---|---|
1398 (echo-keystrokes 0) | 1398 (echo-keystrokes 0) |
1399 (cursor-in-echo-area t) | 1399 (cursor-in-echo-area t) |
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) |
1408 ;; This function may get called from a process filter, where | 1408 ;; This function may get called from a process filter, where |
1409 ;; inhibit-quit is set. In later versions of emacs read-char | 1409 ;; inhibit-quit is set. In later versions of emacs read-char |