[Emacs-diffs] Changes to emacs/lisp/net/ange-ftp.el

[Lute Kamstra]

Index: emacs/lisp/net/ange-ftp.el
diff -c emacs/lisp/net/ange-ftp.el:1.65 emacs/lisp/net/ange-ftp.el:1.66
*** emacs/lisp/net/ange-ftp.el:1.65     Wed May 18 10:18:42 2005
--- emacs/lisp/net/ange-ftp.el  Tue Jun 14 12:10:55 2005
***************
*** 1964,1998 ****
  
  \\{comint-mode-map}"
    (interactive)
!   (comint-mode)
    (setq major-mode 'internal-ange-ftp-mode)
    (setq mode-name "Internal Ange-ftp")
!   (let ((proc (get-buffer-process (current-buffer))))
!     (make-local-variable 'ange-ftp-process-string)
!     (setq ange-ftp-process-string "")
!     (make-local-variable 'ange-ftp-process-busy)
!     (make-local-variable 'ange-ftp-process-result)
!     (make-local-variable 'ange-ftp-process-msg)
!     (make-local-variable 'ange-ftp-process-multi-skip)
!     (make-local-variable 'ange-ftp-process-result-line)
!     (make-local-variable 'ange-ftp-process-continue)
!     (make-local-variable 'ange-ftp-hash-mark-count)
!     (make-local-variable 'ange-ftp-binary-hash-mark-size)
!     (make-local-variable 'ange-ftp-ascii-hash-mark-size)
!     (make-local-variable 'ange-ftp-hash-mark-unit)
!     (make-local-variable 'ange-ftp-xfer-size)
!     (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 comint-prompt-regexp "^ftp> ")
!     (make-local-variable 'comint-password-prompt-regexp)
!     ;; This is a regexp that can't match anything.
!     ;; ange-ftp has its own ways of handling passwords.
!     (setq comint-password-prompt-regexp "^a\\'z")
!     (make-local-variable 'paragraph-start)
!     (setq paragraph-start comint-prompt-regexp)))
  
  (defcustom ange-ftp-raw-login nil
    "*Use raw ftp commands for login, if account password is not nil.
--- 1964,1997 ----
  
  \\{comint-mode-map}"
    (interactive)
!   (delay-mode-hooks (comint-mode))
    (setq major-mode 'internal-ange-ftp-mode)
    (setq mode-name "Internal Ange-ftp")
!   (make-local-variable 'ange-ftp-process-string)
!   (setq ange-ftp-process-string "")
!   (make-local-variable 'ange-ftp-process-busy)
!   (make-local-variable 'ange-ftp-process-result)
!   (make-local-variable 'ange-ftp-process-msg)
!   (make-local-variable 'ange-ftp-process-multi-skip)
!   (make-local-variable 'ange-ftp-process-result-line)
!   (make-local-variable 'ange-ftp-process-continue)
!   (make-local-variable 'ange-ftp-hash-mark-count)
!   (make-local-variable 'ange-ftp-binary-hash-mark-size)
!   (make-local-variable 'ange-ftp-ascii-hash-mark-size)
!   (make-local-variable 'ange-ftp-hash-mark-unit)
!   (make-local-variable 'ange-ftp-xfer-size)
!   (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 comint-prompt-regexp "^ftp> ")
!   (make-local-variable 'comint-password-prompt-regexp)
!   ;; This is a regexp that can't match anything.
!   ;; ange-ftp has its own ways of handling passwords.
!   (setq comint-password-prompt-regexp "^a\\'z")
!   (make-local-variable 'paragraph-start)
!   (setq paragraph-start comint-prompt-regexp)
!   (run-mode-hooks 'internal-ange-ftp-mode-hook))
  
  (defcustom ange-ftp-raw-login nil
    "*Use raw ftp commands for login, if account password is not nil.