[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 5cf22cacda0: ; Delete some commented out code from ange-ftp.el
From: |
Stefan Kangas |
Subject: |
master 5cf22cacda0: ; Delete some commented out code from ange-ftp.el |
Date: |
Fri, 29 Dec 2023 05:29:27 -0500 (EST) |
branch: master
commit 5cf22cacda0d14155794cba8c26549e05f073440
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>
; 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 5cf22cacda0: ; Delete some commented out code from ange-ftp.el,
Stefan Kangas <=