From d0a54f0f3a7ac0ecca3893fd199e29f9d779697a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 26 Apr 1994 18:31:30 +0000 Subject: [PATCH] (internal-ange-ftp-mode): Set comint-prompt-regexp and paragraph-start. --- lisp/ange-ftp.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index 11aabf9728b..6d3c11614a2 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -851,7 +851,7 @@ SIZE, if supplied, should be a prime number." ;;;; 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 @@ on the gateway machine to do the ftp instead." 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 @@ on the gateway machine to do the ftp instead." (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. -- 2.39.5