mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

Use comint-input-sender to send text (Peter Gabriel <gabriel@or.iabg.de>).

Browse Source
This commit is contained in:
Simon Marshall 1995-12-11 13:52:09 +00:00
parent 7d7d915a20
commit 6152f5f070
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/comint.el
View File

@ -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.