Mercurial > emacs
changeset 7113:61a2355759aa
(internal-ange-ftp-mode): Set comint-prompt-regexp and paragraph-start.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 26 Apr 1994 18:31:30 +0000 |
| parents | 91ba2f787c8f |
| children | 31cb9f9b9784 |
| files | lisp/ange-ftp.el |
| diffstat | 1 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ange-ftp.el Tue Apr 26 09:39:30 1994 +0000 +++ b/lisp/ange-ftp.el Tue Apr 26 18:31:30 1994 +0000 @@ -851,7 +851,7 @@ ;;;; Internal variables. ;;;; ------------------------------------------------------------ -(defconst ange-ftp-version "$Revision: 1.46 $") +(defconst ange-ftp-version "$Revision: 1.47 $") (defvar ange-ftp-data-buffer-name " *ftp data*" "Buffer name to hold directory listing data received from ftp process.") @@ -1774,6 +1774,9 @@ proc)) (defun internal-ange-ftp-mode () + "Major mode for interacting with the FTP process. + +\\{comint-mode-map}" (interactive) (comint-mode) (setq major-mode 'internal-ange-ftp-mode) @@ -1797,7 +1800,11 @@ (make-local-variable 'ange-ftp-last-percent) (setq ange-ftp-hash-mark-count 0) (setq ange-ftp-xfer-size 0) - (setq ange-ftp-process-result-line ""))) + (setq ange-ftp-process-result-line "") + + (setq comint-prompt-regexp "^ftp> ") + (make-local-variable 'paragraph-start) + (setq paragraph-start comint-prompt-regexp))) (defun ange-ftp-smart-login (host user pass account proc) "Connect to the FTP-server on HOST as USER using PASSWORD and ACCOUNT.