Mercurial > emacs
comparison lisp/ange-ftp.el @ 3502:c2b4a5b9c8d5
(internal-ange-ftp-mode): Renamed from ange-ftp-mode. Callers changed.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 05 Jun 1993 17:35:21 +0000 |
| parents | 72ea04cee4f1 |
| children | 09bff9415131 |
comparison
equal
deleted
inserted
replaced
| 3501:33a309357161 | 3502:c2b4a5b9c8d5 |
|---|---|
| 854 | 854 |
| 855 ;;;; ------------------------------------------------------------ | 855 ;;;; ------------------------------------------------------------ |
| 856 ;;;; Internal variables. | 856 ;;;; Internal variables. |
| 857 ;;;; ------------------------------------------------------------ | 857 ;;;; ------------------------------------------------------------ |
| 858 | 858 |
| 859 (defconst ange-ftp-version "$Revision: 1.21 $") | 859 (defconst ange-ftp-version "$Revision: 1.22 $") |
| 860 | 860 |
| 861 (defvar ange-ftp-data-buffer-name " *ftp data*" | 861 (defvar ange-ftp-data-buffer-name " *ftp data*" |
| 862 "Buffer name to hold directory listing data received from ftp process.") | 862 "Buffer name to hold directory listing data received from ftp process.") |
| 863 | 863 |
| 864 (defvar ange-ftp-netrc-modtime nil | 864 (defvar ange-ftp-netrc-modtime nil |
| 1760 args)))) | 1760 args)))) |
| 1761 (setq proc (apply 'start-process name name args))) | 1761 (setq proc (apply 'start-process name name args))) |
| 1762 (process-kill-without-query proc) | 1762 (process-kill-without-query proc) |
| 1763 (save-excursion | 1763 (save-excursion |
| 1764 (set-buffer (process-buffer proc)) | 1764 (set-buffer (process-buffer proc)) |
| 1765 (ange-ftp-mode)) | 1765 (internal-ange-ftp-mode)) |
| 1766 (set-process-sentinel proc (function ange-ftp-process-sentinel)) | 1766 (set-process-sentinel proc (function ange-ftp-process-sentinel)) |
| 1767 (set-process-filter proc (function ange-ftp-process-filter)) | 1767 (set-process-filter proc (function ange-ftp-process-filter)) |
| 1768 (accept-process-output proc) ;wait for ftp startup message | 1768 (accept-process-output proc) ;wait for ftp startup message |
| 1769 proc)) | 1769 proc)) |
| 1770 | 1770 |
| 1771 (defun ange-ftp-mode () | 1771 (defun internal-ange-ftp-mode () |
| 1772 (interactive) | 1772 (interactive) |
| 1773 (comint-mode) | 1773 (comint-mode) |
| 1774 (setq major-mode 'ange-ftp-mode) | 1774 (setq major-mode 'internal-ange-ftp-mode) |
| 1775 (setq mode-name "Ange-ftp") | 1775 (setq mode-name "Internal Ange-ftp") |
| 1776 (let ((proc (get-buffer-process (current-buffer)))) | 1776 (let ((proc (get-buffer-process (current-buffer)))) |
| 1777 (goto-char (point-max)) | 1777 (goto-char (point-max)) |
| 1778 (set-marker (process-mark proc) (point)) | 1778 (set-marker (process-mark proc) (point)) |
| 1779 (make-local-variable 'ange-ftp-process-string) | 1779 (make-local-variable 'ange-ftp-process-string) |
| 1780 (setq ange-ftp-process-string "") | 1780 (setq ange-ftp-process-string "") |