Mercurial > emacs
comparison lisp/ange-ftp.el @ 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 | acf840ff5c1c |
| children | fa1ae50e55b3 |
comparison
equal
deleted
inserted
replaced
| 7112:91ba2f787c8f | 7113:61a2355759aa |
|---|---|
| 849 | 849 |
| 850 ;;;; ------------------------------------------------------------ | 850 ;;;; ------------------------------------------------------------ |
| 851 ;;;; Internal variables. | 851 ;;;; Internal variables. |
| 852 ;;;; ------------------------------------------------------------ | 852 ;;;; ------------------------------------------------------------ |
| 853 | 853 |
| 854 (defconst ange-ftp-version "$Revision: 1.46 $") | 854 (defconst ange-ftp-version "$Revision: 1.47 $") |
| 855 | 855 |
| 856 (defvar ange-ftp-data-buffer-name " *ftp data*" | 856 (defvar ange-ftp-data-buffer-name " *ftp data*" |
| 857 "Buffer name to hold directory listing data received from ftp process.") | 857 "Buffer name to hold directory listing data received from ftp process.") |
| 858 | 858 |
| 859 (defvar ange-ftp-netrc-modtime nil | 859 (defvar ange-ftp-netrc-modtime nil |
| 1772 (set-process-filter proc (function ange-ftp-process-filter)) | 1772 (set-process-filter proc (function ange-ftp-process-filter)) |
| 1773 (accept-process-output proc) ;wait for ftp startup message | 1773 (accept-process-output proc) ;wait for ftp startup message |
| 1774 proc)) | 1774 proc)) |
| 1775 | 1775 |
| 1776 (defun internal-ange-ftp-mode () | 1776 (defun internal-ange-ftp-mode () |
| 1777 "Major mode for interacting with the FTP process. | |
| 1778 | |
| 1779 \\{comint-mode-map}" | |
| 1777 (interactive) | 1780 (interactive) |
| 1778 (comint-mode) | 1781 (comint-mode) |
| 1779 (setq major-mode 'internal-ange-ftp-mode) | 1782 (setq major-mode 'internal-ange-ftp-mode) |
| 1780 (setq mode-name "Internal Ange-ftp") | 1783 (setq mode-name "Internal Ange-ftp") |
| 1781 (let ((proc (get-buffer-process (current-buffer)))) | 1784 (let ((proc (get-buffer-process (current-buffer)))) |
| 1795 (make-local-variable 'ange-ftp-hash-mark-unit) | 1798 (make-local-variable 'ange-ftp-hash-mark-unit) |
| 1796 (make-local-variable 'ange-ftp-xfer-size) | 1799 (make-local-variable 'ange-ftp-xfer-size) |
| 1797 (make-local-variable 'ange-ftp-last-percent) | 1800 (make-local-variable 'ange-ftp-last-percent) |
| 1798 (setq ange-ftp-hash-mark-count 0) | 1801 (setq ange-ftp-hash-mark-count 0) |
| 1799 (setq ange-ftp-xfer-size 0) | 1802 (setq ange-ftp-xfer-size 0) |
| 1800 (setq ange-ftp-process-result-line ""))) | 1803 (setq ange-ftp-process-result-line "") |
| 1804 | |
| 1805 (setq comint-prompt-regexp "^ftp> ") | |
| 1806 (make-local-variable 'paragraph-start) | |
| 1807 (setq paragraph-start comint-prompt-regexp))) | |
| 1801 | 1808 |
| 1802 (defun ange-ftp-smart-login (host user pass account proc) | 1809 (defun ange-ftp-smart-login (host user pass account proc) |
| 1803 "Connect to the FTP-server on HOST as USER using PASSWORD and ACCOUNT. | 1810 "Connect to the FTP-server on HOST as USER using PASSWORD and ACCOUNT. |
| 1804 PROC is the FTP-client's process. This routine uses the smart-gateway | 1811 PROC is the FTP-client's process. This routine uses the smart-gateway |
| 1805 host specified in ``ange-ftp-gateway-host''." | 1812 host specified in ``ange-ftp-gateway-host''." |