From 5cf22cacda0d14155794cba8c26549e05f073440 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Fri, 29 Dec 2023 11:25:53 +0100 Subject: [PATCH] ; Delete some commented out code from ange-ftp.el * lisp/net/ange-ftp.el: Delete some code commented out since 2002. --- lisp/net/ange-ftp.el | 34 ---------------------------------- 1 file changed, 34 deletions(-) diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index a1eb57baa20..13b7e502141 100644 --- 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) -- 2.39.5