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

[Richard M. Stallman]

Index: emacs/lisp/net/ange-ftp.el
diff -c emacs/lisp/net/ange-ftp.el:1.36 emacs/lisp/net/ange-ftp.el:1.37
*** emacs/lisp/net/ange-ftp.el:1.36     Fri Jun 21 16:41:59 2002
--- emacs/lisp/net/ange-ftp.el  Tue Jul  2 15:20:42 2002
***************
*** 4336,4342 ****
    (let ((fn (get operation 'ange-ftp)))
      (if fn (save-match-data (apply fn args))
        (ange-ftp-run-real-handler operation args))))
! 
  
  ;;; This regexp takes care of real ange-ftp file names (with a slash
  ;;; and colon).
--- 4336,4344 ----
    (let ((fn (get operation 'ange-ftp)))
      (if fn (save-match-data (apply fn args))
        (ange-ftp-run-real-handler operation args))))
! ;;;###autoload
! ;;; These file names are remote file names.
! (put 'ange-ftp-hook-function 'file-remote-p t)
  
  ;;; This regexp takes care of real ange-ftp file names (with a slash
  ;;; and colon).