1964 |
|
|
1965 |
\\{comint-mode-map}" |
\\{comint-mode-map}" |
1966 |
(interactive) |
(interactive) |
1967 |
(comint-mode) |
(delay-mode-hooks (comint-mode)) |
1968 |
(setq major-mode 'internal-ange-ftp-mode) |
(setq major-mode 'internal-ange-ftp-mode) |
1969 |
(setq mode-name "Internal Ange-ftp") |
(setq mode-name "Internal Ange-ftp") |
1970 |
(let ((proc (get-buffer-process (current-buffer)))) |
(make-local-variable 'ange-ftp-process-string) |
1971 |
(make-local-variable 'ange-ftp-process-string) |
(setq ange-ftp-process-string "") |
1972 |
(setq ange-ftp-process-string "") |
(make-local-variable 'ange-ftp-process-busy) |
1973 |
(make-local-variable 'ange-ftp-process-busy) |
(make-local-variable 'ange-ftp-process-result) |
1974 |
(make-local-variable 'ange-ftp-process-result) |
(make-local-variable 'ange-ftp-process-msg) |
1975 |
(make-local-variable 'ange-ftp-process-msg) |
(make-local-variable 'ange-ftp-process-multi-skip) |
1976 |
(make-local-variable 'ange-ftp-process-multi-skip) |
(make-local-variable 'ange-ftp-process-result-line) |
1977 |
(make-local-variable 'ange-ftp-process-result-line) |
(make-local-variable 'ange-ftp-process-continue) |
1978 |
(make-local-variable 'ange-ftp-process-continue) |
(make-local-variable 'ange-ftp-hash-mark-count) |
1979 |
(make-local-variable 'ange-ftp-hash-mark-count) |
(make-local-variable 'ange-ftp-binary-hash-mark-size) |
1980 |
(make-local-variable 'ange-ftp-binary-hash-mark-size) |
(make-local-variable 'ange-ftp-ascii-hash-mark-size) |
1981 |
(make-local-variable 'ange-ftp-ascii-hash-mark-size) |
(make-local-variable 'ange-ftp-hash-mark-unit) |
1982 |
(make-local-variable 'ange-ftp-hash-mark-unit) |
(make-local-variable 'ange-ftp-xfer-size) |
1983 |
(make-local-variable 'ange-ftp-xfer-size) |
(make-local-variable 'ange-ftp-last-percent) |
1984 |
(make-local-variable 'ange-ftp-last-percent) |
(setq ange-ftp-hash-mark-count 0) |
1985 |
(setq ange-ftp-hash-mark-count 0) |
(setq ange-ftp-xfer-size 0) |
1986 |
(setq ange-ftp-xfer-size 0) |
(setq ange-ftp-process-result-line "") |
1987 |
(setq ange-ftp-process-result-line "") |
(setq comint-prompt-regexp "^ftp> ") |
1988 |
|
(make-local-variable 'comint-password-prompt-regexp) |
1989 |
(setq comint-prompt-regexp "^ftp> ") |
;; This is a regexp that can't match anything. |
1990 |
(make-local-variable 'comint-password-prompt-regexp) |
;; ange-ftp has its own ways of handling passwords. |
1991 |
;; This is a regexp that can't match anything. |
(setq comint-password-prompt-regexp "^a\\'z") |
1992 |
;; ange-ftp has its own ways of handling passwords. |
(make-local-variable 'paragraph-start) |
1993 |
(setq comint-password-prompt-regexp "^a\\'z") |
(setq paragraph-start comint-prompt-regexp) |
1994 |
(make-local-variable 'paragraph-start) |
(run-mode-hooks 'internal-ange-ftp-mode-hook)) |
|
(setq paragraph-start comint-prompt-regexp))) |
|
1995 |
|
|
1996 |
(defcustom ange-ftp-raw-login nil |
(defcustom ange-ftp-raw-login nil |
1997 |
"*Use raw ftp commands for login, if account password is not nil. |
"*Use raw ftp commands for login, if account password is not nil. |