Mercurial > emacs
changeset 8087:c22d7c5168f5
comint-password-prompt-regexp: New variable.
comint-watch-for-password-prompt: Use it.
| author | Noah Friedman <friedman@splode.com> |
|---|---|
| date | Wed, 29 Jun 1994 18:21:34 +0000 |
| parents | 9f6348616e4d |
| children | a831980bb12e |
| files | lisp/comint.el |
| diffstat | 1 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/comint.el Wed Jun 29 18:06:09 1994 +0000 +++ b/lisp/comint.el Wed Jun 29 18:21:34 1994 +0000 @@ -219,6 +219,10 @@ 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. @@ -1389,10 +1393,11 @@ (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 *\\\\'\"). +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 "^[Pp]assword:\\s *\\'" string) + (if (string-match comint-password-prompt-regexp string) (send-invisible nil))) ;;; Low-level process communication