From 6152f5f0708d0c185a67ea1aeab13d40de21c63f Mon Sep 17 00:00:00 2001 From: Simon Marshall Date: Mon, 11 Dec 1995 13:52:09 +0000 Subject: [PATCH] Use comint-input-sender to send text (Peter Gabriel ). --- lisp/comint.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/lisp/comint.el b/lisp/comint.el index 4d5d1a14bfe..fe15c80b120 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -1434,17 +1434,16 @@ applications." (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. -- 2.39.2