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

diff --git a/lisp/comint.el b/lisp/comint.el
index 4d5d1a14bfe0979d6b3562bfefe4f3e19536e6eb..fe15c80b1200ab820cb65f458362ca83d6e4d851 100644 (file)
--- 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.