Mercurial > emacs
changeset 13702:f7bf7f756503
Use comint-input-sender to send text (Peter Gabriel <gabriel@or.iabg.de>).
| author | Simon Marshall <simon@gnu.org> |
|---|---|
| date | Mon, 11 Dec 1995 13:52:09 +0000 |
| parents | 1dab6f0d9239 |
| children | a185c48f6b61 |
| files | lisp/comint.el |
| diffstat | 1 files changed, 4 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/comint.el Sat Dec 09 16:35:57 1995 +0000 +++ b/lisp/comint.el Mon Dec 11 13:52:09 1995 +0000 @@ -1434,17 +1434,16 @@ (defun send-invisible (str) "Read a string without echoing. -Then send it to the process running in the current buffer. A new-line -is additionally sent. String is not saved on comint input history list. +Then send it to the process running in the current buffer. +The string is sent using `comint-input-sender'. Security bug: your string can still be temporarily recovered with \\[view-lossage]." (interactive "P") ; Defeat snooping via C-x esc (let ((proc (get-buffer-process (current-buffer)))) (if (not proc) (error "Current buffer has no process") - (comint-send-string - proc (if (stringp str) str (comint-read-noecho "Non-echoed text: " t))) - (comint-send-string proc "\n")))) + (funcall comint-input-sender proc + (if (stringp str) str (comint-read-noecho "Non-echoed text: " t)))))) (defun comint-watch-for-password-prompt (string) "Prompt in the minibuffer for password and send without echoing.