; Delete some commented out code from ange-ftp.el

* lisp/net/ange-ftp.el: Delete some code commented out since 2002.

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index a1eb57baa2019bbc67aa812c9f07e7734d29cb57..13b7e5021413c904ceb83501d693b125e6c5dd55 100644 (file)
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -4404,40 +4404,6 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
          (error (signal (car err) (cdr err))))
       (ange-ftp-run-real-handler operation args))))
 
-;; The following code is commented out because Tramp now deals with
-;; Ange-FTP filenames, too.
-
-;;-;;; This regexp takes care of real ange-ftp file names (with a slash
-;;-;;; and colon).
-;;-;;; Don't allow the host name to end in a period--some systems use /.:
-;;-;;;###autoload
-;;-(or (assoc "^/[^/:]*[^/:.]:" file-name-handler-alist)
-;;-    (setq file-name-handler-alist
-;;-      (cons '("^/[^/:]*[^/:.]:" . ange-ftp-hook-function)
-;;-            file-name-handler-alist)))
-;;-
-;;-;;; This regexp recognizes absolute filenames with only one component,
-;;-;;; for the sake of hostname completion.
-;;-;;;###autoload
-;;-(or (assoc "^/[^/:]*\\'" file-name-handler-alist)
-;;-    (setq file-name-handler-alist
-;;-      (cons '("^/[^/:]*\\'" . ange-ftp-completion-hook-function)
-;;-            file-name-handler-alist)))
-;;-
-;;-;;; This regexp recognizes absolute filenames with only one component
-;;-;;; on Windows, for the sake of hostname completion.
-;;-;;; NB. Do not mark this as autoload, because it is very common to
-;;-;;; do completions in the root directory of drives on Windows.
-;;-(and (memq system-type '(ms-dos windows-nt))
-;;-     (or (assoc "^[a-zA-Z]:/[^/:]*\\'" file-name-handler-alist)
-;;-     (setq file-name-handler-alist
-;;-           (cons '("^[a-zA-Z]:/[^/:]*\\'" .
-;;-                   ange-ftp-completion-hook-function)
-;;-                 file-name-handler-alist))))
-
-;;; The above two forms are sufficient to cause this file to be loaded
-;;; if the user ever uses a file name with a colon in it.
-
 ;;; This sets the mode
 (add-hook 'find-file-hook 'ange-ftp-set-buffer-mode)