diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2017-04-06 21:00:29 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2017-04-06 21:00:29 +0200 |
| commit | 69061fd1341629d059a8846aa89eedeed42552d1 (patch) | |
| tree | 69daec2dad9e05c8f2a9be74b153a8bf3f8206c6 /lisp/net/tramp-cmds.el | |
| parent | c1fa07222e9c76964d1261c31b50f1e399554fa2 (diff) | |
| download | emacs-69061fd1341629d059a8846aa89eedeed42552d1.tar.gz emacs-69061fd1341629d059a8846aa89eedeed42552d1.tar.bz2 emacs-69061fd1341629d059a8846aa89eedeed42552d1.zip | |
Add new Tramp syntax
* lisp/net/tramp-cmds.el (tramp-change-syntax): New defun.
* lisp/net/tramp.el (tramp-syntax): Change default to `def'.
Add :set function.
(tramp-prefix-port-format): Simplify.
(tramp-file-name-regexp-separate): Remove.
(tramp-initial-file-name-regexp)
(tramp-completion-file-name-regexp-old-style)
(tramp-initial-completion-file-name-regexp): New defconst.
(tramp-prefix-format, tramp-prefix-regexp)
(tramp-method-regexp, tramp-postfix-method-format)
(tramp-postfix-method-regexp, tramp-prefix-ipv6-format)
(tramp-prefix-ipv6-regexp, tramp-postfix-ipv6-format)
(tramp-postfix-ipv6-regexp)
(tramp-postfix-host-format, tramp-postfix-host-regexp)
(tramp-remote-file-name-spec-regexp)
(tramp-file-name-structure, tramp-file-name-regexp)
(tramp-completion-file-name-regexp)
(tramp-rfn-eshadow-update-overlay-regexp): Change them to be defuns.
(tramp-tramp-file-p, tramp-find-method)
(tramp-dissect-file-name, tramp-make-tramp-file-name)
(tramp-completion-make-tramp-file-name)
(tramp-rfn-eshadow-update-overlay)
(tramp-register-autoload-file-name-handlers)
(tramp-register-file-name-handlers)
(tramp-unload-file-name-handlers)
(tramp-completion-handle-file-name-all-completions)
(tramp-completion-dissect-file-name, tramp-clear-passwd):
* lisp/net/tramp-ftp.el (tramp-ftp-file-name-handler):
* lisp/net/tramp-sh.el (tramp-sh-handle-vc-registered)
(tramp-compute-multi-hops): Use them.
Diffstat (limited to 'lisp/net/tramp-cmds.el')
| -rw-r--r-- | lisp/net/tramp-cmds.el | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/lisp/net/tramp-cmds.el b/lisp/net/tramp-cmds.el index c41b5b5659e..df6a5c507f0 100644 --- a/lisp/net/tramp-cmds.el +++ b/lisp/net/tramp-cmds.el @@ -37,6 +37,20 @@ (defvar reporter-eval-buffer) (defvar reporter-prompt-for-summary-p) +;;;###autoload +(defun tramp-change-syntax (&optional syntax) + "Change Tramp syntax. +SYNTAX can be one of the symbols `def' (default), `ftp' (ange-ftp like) +or `sep' (XEmacs like)." + (interactive + (let ((input (completing-read + "Enter Tramp syntax: " '(def ftp sep) nil t + (symbol-name tramp-syntax)))) + (unless (string-equal input "") + (list (intern input))))) + (when syntax + (custom-set-variables `(tramp-syntax ',syntax)))) + (defun tramp-list-tramp-buffers () "Return a list of all Tramp connection buffers." (append |