# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1123586735 0
# Node ID fe9134f14297a1bdc8b001cdfa196441bfa9e98c
# Parent  bc16d0987bb15df867ed9049fdf9a275e08a5afc
(send-invisible): Identify buffer, if not selected.

diff -r bc16d0987bb1 -r fe9134f14297 lisp/comint.el
--- a/lisp/comint.el	Tue Aug 09 11:24:48 2005 +0000
+++ b/lisp/comint.el	Tue Aug 09 11:25:35 2005 +0000
@@ -1935,15 +1935,21 @@
 Security bug: your string can still be temporarily recovered with
 \\[view-lossage]; `clear-this-command-keys' can fix that."
   (interactive "P")			; Defeat snooping via C-x ESC ESC
-  (let ((proc (get-buffer-process (current-buffer))))
+  (let ((proc (get-buffer-process (current-buffer)))
+	(prefix
+	 (if (eq (window-buffer (selected-window)) (current-buffer))
+	     ""
+	   (format "(In buffer %s) "
+		   (current-buffer)))))
     (if proc
-	(let ((str (read-passwd (or prompt "Non-echoed text: "))))
+	(let ((str (read-passwd (concat prefix
+					(or prompt "Non-echoed text: ")))))
 	  (if (stringp str)
 	      (progn
 		(comint-snapshot-last-prompt)
 		(funcall comint-input-sender proc str))
 	    (message "Warning: text will be echoed")))
-      (error "Current buffer has no process"))))
+      (error "Buffer %s has no process" (current-buffer)))))
 
 (defun comint-watch-for-password-prompt (string)
   "Prompt in the minibuffer for password and send without echoing.