diff options
author | Michael Albinus <michael.albinus@gmx.de> | 2017-12-09 14:34:30 +0100 |
---|---|---|
committer | Michael Albinus <michael.albinus@gmx.de> | 2017-12-09 14:34:30 +0100 |
commit | d338325c2b603db8433c9b6b12216201d5ee21e9 (patch) | |
tree | c422d02f6b228e53654718eacaef04642a9ea3ff /lisp/net/tramp-compat.el | |
parent | 2ffdc041b1671e064df5ae6f7ec2f5a90c9dd30c (diff) | |
download | emacs-d338325c2b603db8433c9b6b12216201d5ee21e9.tar.gz |
Support for archive file names
* doc/misc/tramp.texi (Top, Usage): Add entry "Archive file names".
(History): Mention archive file names.
(GVFS based methods): Mentio "http" and "https" methods.
(Archive file names): New node.
(Frequently Asked Questions): Add Emacs 27 as supported version.
* etc/NEWS: Mention tramp-archive.el.
* lisp/net/tramp.el (tramp-run-real-handler)
(tramp-register-file-name-handlers)
(tramp-register-file-name-handlers, tramp-unload-file-name-handlers):
Add `tramp-archive-file-name-handler'.
(tramp-handle-file-name-completion): Do not insist in Tramp
file names.
* lisp/net/tramp-archive.el: New package.
* lisp/net/tramp-cache.el (tramp-dump-connection-properties): Check for
"archive" method.
* lisp/net/tramp-cmds.el (tramp-cleanup-all-connections): Cleanup also
local copies of archives.
* lisp/net/tramp-compat.el (tramp-compat-use-url-tramp-p): New defconst.
* lisp/net/tramp-gvfs.el (tramp-gvfs-methods): Add "http" and "https".
(tramp-gvfs-gio-mapping): Add "gvfs-mount".
(tramp-gvfs-handler-mounted-unmounted)
(tramp-gvfs-connection-mounted-p, tramp-gvfs-mount-spec):
Handle "uri" and "http".
(tramp-gvfs-unmount): New defun.
* test/lisp/net/tramp-archive-tests.el: New package.
Diffstat (limited to 'lisp/net/tramp-compat.el')
-rw-r--r-- | lisp/net/tramp-compat.el | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/lisp/net/tramp-compat.el b/lisp/net/tramp-compat.el index 9cdfc065128..a9e9ce85d68 100644 --- a/lisp/net/tramp-compat.el +++ b/lisp/net/tramp-compat.el @@ -190,11 +190,6 @@ This is a string of ten letters or dashes as in ls -l." (if (get 'file-missing 'error-conditions) 'file-missing 'file-error) "The error symbol for the `file-missing' error.") -(add-hook 'tramp-unload-hook - (lambda () - (unload-feature 'tramp-loaddefs 'force) - (unload-feature 'tramp-compat 'force))) - ;; `file-name-quoted-p', `file-name-quote' and `file-name-unquote' are ;; introduced in Emacs 26. (eval-and-compile @@ -243,6 +238,17 @@ If NAME is a remote file name, the local part of NAME is unquoted." `(cdr (mapcar 'car (cl-struct-slot-info 'tramp-file-name))) `(cdr (mapcar 'car (get 'tramp-file-name 'cl-struct-slots))))) +;; The signature of `tramp-make-tramp-file-name' has been changed. +;; Therefore, we cannot us `url-tramp-convert-url-to-tramp' prior +;; Emacs 26.1. We use `temporary-file-directory' as indicator. +(defconst tramp-compat-use-url-tramp-p (fboundp 'temporary-file-directory) + "Whether to use url-tramp.el.") + +(add-hook 'tramp-unload-hook + (lambda () + (unload-feature 'tramp-loaddefs 'force) + (unload-feature 'tramp-compat 'force))) + (provide 'tramp-compat) ;;; TODO: |