comparison lisp/comint.el @ 8087:c22d7c5168f5

comint-password-prompt-regexp: New variable. comint-watch-for-password-prompt: Use it.

8086:9f6348616e4d

  "*If non-nil, assume that the subprocess echoes any input.
If so, delete one copy of the input so that only one copy eventually
appears in the buffer.

This variable is buffer-local.")

;;; Here are the per-interpreter hooks.
(defvar comint-get-old-input (function comint-get-old-input-default)
  "Function that returns old text in comint mode.
This function is called when return is typed while the point is in old text.

      (comint-send-string proc "\n"))))

(defun comint-watch-for-password-prompt (string) 
  "Prompt in the minibuffer for password and send without echoing.
This function uses `send-invisible' to read and send a password to the buffer's
process if STRING contains a password prompt (matches \"^[Pp]assword:\\\\s *\\\\'\").

This function could be in the list `comint-output-filter-functions'."
  (if (string-match "^[Pp]assword:\\s *\\'" string)
      (send-invisible nil)))

;;; Low-level process communication

(defvar comint-input-chunk-size 512

8087:c22d7c5168f5

  "*If non-nil, assume that the subprocess echoes any input.
If so, delete one copy of the input so that only one copy eventually
appears in the buffer.

This variable is buffer-local.")

(defvar comint-password-prompt-regexp "\\b[Pp]assword:\\s *\\'"
  "*Regexp matching prompts for passwords in the inferior process.
This is used by comint-watch-for-password-prompt.")

;;; Here are the per-interpreter hooks.
(defvar comint-get-old-input (function comint-get-old-input-default)
  "Function that returns old text in comint mode.
This function is called when return is typed while the point is in old text.

      (comint-send-string proc "\n"))))

(defun comint-watch-for-password-prompt (string) 
  "Prompt in the minibuffer for password and send without echoing.
This function uses `send-invisible' to read and send a password to the buffer's
process if STRING contains a password prompt defined by 
`comint-password-prompt-regexp'.

This function could be in the list `comint-output-filter-functions'."
  (if (string-match comint-password-prompt-regexp string)
      (send-invisible nil)))

;;; Low-level process communication

(defvar comint-input-chunk-size 512