[Emacs-diffs] Changes to emacs/lisp/comint.el

[Richard M . Stallman]

Index: emacs/lisp/comint.el
diff -c emacs/lisp/comint.el:1.329 emacs/lisp/comint.el:1.330
*** emacs/lisp/comint.el:1.329  Sat Aug  6 22:13:42 2005
--- emacs/lisp/comint.el        Tue Aug  9 11:25:35 2005
***************
*** 1935,1949 ****
  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))))
      (if proc
!       (let ((str (read-passwd (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"))))
  
  (defun comint-watch-for-password-prompt (string)
    "Prompt in the minibuffer for password and send without echoing.
--- 1935,1955 ----
  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)))
!       (prefix
!        (if (eq (window-buffer (selected-window)) (current-buffer))
!            ""
!          (format "(In buffer %s) "
!                  (current-buffer)))))
      (if proc
!       (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 "Buffer %s has no process" (current-buffer)))))
  
  (defun comint-watch-for-password-prompt (string)
    "Prompt in the minibuffer for password and send without echoing.