# HG changeset patch
# User Simon Marshall <simon@gnu.org>
# Date 818689929 0
# Node ID f7bf7f7565037b0c3e1464a31dbb9881ec9451ad
# Parent  1dab6f0d92397291dfc0a92e1acfd854afbb55d5
Use comint-input-sender to send text (Peter Gabriel <gabriel@or.iabg.de>).

diff -r 1dab6f0d9239 -r f7bf7f756503 lisp/comint.el
--- 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.