/[emacs]/emacs/lisp/net/ange-ftp.el
ViewVC logotype

Diff of /emacs/lisp/net/ange-ftp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.65 by lektu, Wed May 18 10:18:42 2005 UTC revision 1.66 by lute, Tue Jun 14 12:10:55 2005 UTC
# Line 1964  on the gateway machine to do the ftp ins Line 1964  on the gateway machine to do the ftp ins
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.

Legend:
Removed from v.1.65  
changed lines
  Added in v.1.66

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26