Mercurial > emacs
comparison lisp/comint.el @ 15727:6c3657019286
(send-invisble): Comment fix.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 17 Jul 1996 21:09:42 +0000 |
| parents | 6f32894f4ad3 |
| children | 9e94b5fdaab1 |
comparison
equal
deleted
inserted
replaced
| 15726:8c7e66043faf | 15727:6c3657019286 |
|---|---|
| 1441 "Read a string without echoing. | 1441 "Read a string without echoing. |
| 1442 Then send it to the process running in the current buffer. | 1442 Then send it to the process running in the current buffer. |
| 1443 The string is sent using `comint-input-sender'. | 1443 The string is sent using `comint-input-sender'. |
| 1444 Security bug: your string can still be temporarily recovered with | 1444 Security bug: your string can still be temporarily recovered with |
| 1445 \\[view-lossage]." | 1445 \\[view-lossage]." |
| 1446 (interactive "P") ; Defeat snooping via C-x esc | 1446 (interactive "P") ; Defeat snooping via C-x ESC ESC |
| 1447 (let ((proc (get-buffer-process (current-buffer)))) | 1447 (let ((proc (get-buffer-process (current-buffer)))) |
| 1448 (if (not proc) | 1448 (if (not proc) |
| 1449 (error "Current buffer has no process") | 1449 (error "Current buffer has no process") |
| 1450 (funcall comint-input-sender proc | 1450 (funcall comint-input-sender proc |
| 1451 (if (stringp str) str (comint-read-noecho "Non-echoed text: " t)))))) | 1451 (if (stringp str) str (comint-read-noecho "Non-echoed text: " t)))))) |