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

[Stefan Monnier]

Index: emacs/lisp/net/ange-ftp.el
diff -c emacs/lisp/net/ange-ftp.el:1.21 emacs/lisp/net/ange-ftp.el:1.22
*** emacs/lisp/net/ange-ftp.el:1.21     Thu Jan  3 03:38:45 2002
--- emacs/lisp/net/ange-ftp.el  Sun Jan 13 05:03:49 2002
***************
*** 2326,2332 ****
    "^[A-Z0-9._][A-Z0-9._][A-Z0-9._][A-Z0-9._]:$")
  
  (defun ange-ftp-guess-host-type (host user)
!   "Guess at the the host type of HOST.
  Works by doing a pwd and examining the directory syntax."
    (let ((host-type (ange-ftp-host-type host))
        (key (concat host "/" user "/~")))
--- 2326,2332 ----
    "^[A-Z0-9._][A-Z0-9._][A-Z0-9._][A-Z0-9._]:$")
  
  (defun ange-ftp-guess-host-type (host user)
!   "Guess the host type of HOST.
  Works by doing a pwd and examining the directory syntax."
    (let ((host-type (ange-ftp-host-type host))
        (key (concat host "/" user "/~")))