diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2022-07-27 23:33:03 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2022-07-28 00:11:12 +0200 |
| commit | fcaad9905360264140d451dac5085dd4552a1e8f (patch) | |
| tree | f2ece8d47c5f31d4f748b1c4de79287ca4efadc9 /lisp/ffap.el | |
| parent | faa007cebf4a50bc2f21f59fea1e0f0064948f84 (diff) | |
| download | emacs-fcaad9905360264140d451dac5085dd4552a1e8f.tar.gz emacs-fcaad9905360264140d451dac5085dd4552a1e8f.tar.bz2 emacs-fcaad9905360264140d451dac5085dd4552a1e8f.zip | |
Drop support for XEmacs package EFS
EFS is a long defunct XEmacs-specific fork of Ange FTP that is
superseded by TRAMP.
* lisp/ffap.el (ffap-ftp-default-user)
(ffap-replace-file-component, ffap-host-to-filename):
* lisp/gnus/mml.el (mml-parse-file-name):
* lisp/gnus/nnheader.el (nnheader-re-read-dir):
* lisp/net/browse-url.el (browse-url-filename-alist):
* lisp/speedbar.el (speedbar-check-vc): Drop support for XEmacs
package EFS.
Diffstat (limited to 'lisp/ffap.el')
| -rw-r--r-- | lisp/ffap.el | 16 |
1 files changed, 6 insertions, 10 deletions
diff --git a/lisp/ffap.el b/lisp/ffap.el index a6cb01a93b1..93c5c1faa96 100644 --- a/lisp/ffap.el +++ b/lisp/ffap.el @@ -173,7 +173,7 @@ well-formed, such as \"user@host\" or \"<user@host>\"." (defcustom ffap-ftp-default-user "anonymous" "User name in FTP file names generated by `ffap-host-to-filename'. Note this name may be omitted if it equals the default -\(either `efs-default-user' or `ange-ftp-default-user')." +(`ange-ftp-default-user')." :type 'string :group 'ffap) @@ -495,12 +495,9 @@ Returned values: (defun ffap-replace-file-component (fullname name) "In remote FULLNAME, replace path with NAME. May return nil." - ;; Use efs if loaded, but do not load it otherwise. - (if (fboundp 'efs-replace-path-component) - (funcall 'efs-replace-path-component fullname name) - (and (stringp fullname) - (stringp name) - (concat (file-remote-p fullname) name)))) + (and (stringp fullname) + (stringp name) + (concat (file-remote-p fullname) name))) ;; (ffap-replace-file-component "/who@foo.com:/whatever" "/new") (defun ffap-file-suffix (file) @@ -569,9 +566,8 @@ Looks at `ffap-ftp-default-user', returns \"\" for \"localhost\"." "" (let ((user ffap-ftp-default-user)) ;; Avoid including the user if it is same as default: - (if (or (equal user (ffap-symbol-value 'ange-ftp-default-user)) - (equal user (ffap-symbol-value 'efs-default-user))) - (setq user nil)) + (when (equal user (ffap-symbol-value 'ange-ftp-default-user)) + (setq user nil)) (concat "/" user (and user "@") host ":")))) (defun ffap-fixup-machine (mach) |