diff options
| author | Gerd Moellmann | 2001-07-16 12:59:04 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2001-07-16 12:59:04 +0000 |
| commit | a07c7ade250d6c2f5ef7230fcc3aeb23905298ce (patch) | |
| tree | a644ed83797f1694644cb01bc6e131cebf4be222 | |
| parent | 3c3e43ef063d8305b4d615d746fd943d0fc01fff (diff) | |
| download | emacs-a07c7ade250d6c2f5ef7230fcc3aeb23905298ce.tar.gz emacs-a07c7ade250d6c2f5ef7230fcc3aeb23905298ce.zip | |
(eshell-send-invisible): Renamed from
send-invisible, which is already defined in Comint.
(eshell-watch-for-password-prompt): Use it.
| -rw-r--r-- | lisp/eshell/esh-mode.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/eshell/esh-mode.el b/lisp/eshell/esh-mode.el index c284f6f3ffc..acf8b22fecf 100644 --- a/lisp/eshell/esh-mode.el +++ b/lisp/eshell/esh-mode.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; esh-mode.el --- user interface | 1 | ;;; esh-mode.el --- user interface |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000 Free Software Foundation | 3 | ;; Copyright (C) 1999, 2000, 2001 Free Software Foundation |
| 4 | 4 | ||
| 5 | ;; Author: John Wiegley <johnw@gnu.org> | 5 | ;; Author: John Wiegley <johnw@gnu.org> |
| 6 | 6 | ||
| @@ -1017,7 +1017,7 @@ a key." | |||
| 1017 | (custom-add-option 'eshell-output-filter-functions | 1017 | (custom-add-option 'eshell-output-filter-functions |
| 1018 | 'eshell-truncate-buffer) | 1018 | 'eshell-truncate-buffer) |
| 1019 | 1019 | ||
| 1020 | (defun send-invisible (str) | 1020 | (defun eshell-send-invisible (str) |
| 1021 | "Read a string without echoing. | 1021 | "Read a string without echoing. |
| 1022 | Then send it to the process running in the current buffer." | 1022 | Then send it to the process running in the current buffer." |
| 1023 | (interactive "P") ; Defeat snooping via C-x ESC ESC | 1023 | (interactive "P") ; Defeat snooping via C-x ESC ESC |
| @@ -1031,7 +1031,7 @@ Then send it to the process running in the current buffer." | |||
| 1031 | 1031 | ||
| 1032 | (defun eshell-watch-for-password-prompt () | 1032 | (defun eshell-watch-for-password-prompt () |
| 1033 | "Prompt in the minibuffer for password and send without echoing. | 1033 | "Prompt in the minibuffer for password and send without echoing. |
| 1034 | This function uses `send-invisible' to read and send a password to the | 1034 | This function uses `eshell-send-invisible' to read and send a password to the |
| 1035 | buffer's process if STRING contains a password prompt defined by | 1035 | buffer's process if STRING contains a password prompt defined by |
| 1036 | `eshell-password-prompt-regexp'. | 1036 | `eshell-password-prompt-regexp'. |
| 1037 | 1037 | ||
| @@ -1042,7 +1042,7 @@ This function could be in the list `eshell-output-filter-functions'." | |||
| 1042 | (beginning-of-line) | 1042 | (beginning-of-line) |
| 1043 | (if (re-search-forward eshell-password-prompt-regexp | 1043 | (if (re-search-forward eshell-password-prompt-regexp |
| 1044 | eshell-last-output-end t) | 1044 | eshell-last-output-end t) |
| 1045 | (send-invisible nil))))) | 1045 | (eshell-send-invisible nil))))) |
| 1046 | 1046 | ||
| 1047 | (custom-add-option 'eshell-output-filter-functions | 1047 | (custom-add-option 'eshell-output-filter-functions |
| 1048 | 'eshell-watch-for-password-prompt) | 1048 | 'eshell-watch-for-password-prompt) |