diff options
| author | Michael Albinus | 2023-06-22 11:07:10 +0200 |
|---|---|---|
| committer | Michael Albinus | 2023-06-22 11:07:10 +0200 |
| commit | 311a25807fc6fe0589a331f400ba28af4e328e4b (patch) | |
| tree | d3b2d4eb12ab2af14b61a0b64d942496a7c947b0 | |
| parent | 8ca8fb484143a639f08987146bfdebf97d1541f4 (diff) | |
| download | emacs-311a25807fc6fe0589a331f400ba28af4e328e4b.tar.gz emacs-311a25807fc6fe0589a331f400ba28af4e328e4b.zip | |
Rearrange some Tramp declarations
* lisp/net/tramp.el (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-method-regexp)
(tramp-completion-file-name-regexp):
* lisp/net/tramp-gvfs.el (tramp-gvfs-dbus-event-vector):
Rearrange declarations.
| -rw-r--r-- | lisp/net/tramp-gvfs.el | 3 | ||||
| -rw-r--r-- | lisp/net/tramp.el | 33 |
2 files changed, 17 insertions, 19 deletions
diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el index e214d610c91..48467a92c14 100644 --- a/lisp/net/tramp-gvfs.el +++ b/lisp/net/tramp-gvfs.el | |||
| @@ -114,6 +114,7 @@ | |||
| 114 | (declare-function zeroconf-service-host "zeroconf") | 114 | (declare-function zeroconf-service-host "zeroconf") |
| 115 | (declare-function zeroconf-service-port "zeroconf") | 115 | (declare-function zeroconf-service-port "zeroconf") |
| 116 | (declare-function zeroconf-service-txt "zeroconf") | 116 | (declare-function zeroconf-service-txt "zeroconf") |
| 117 | (defvar tramp-gvfs-dbus-event-vector) | ||
| 117 | 118 | ||
| 118 | ;; We don't call `dbus-ping', because this would load dbus.el. | 119 | ;; We don't call `dbus-ping', because this would load dbus.el. |
| 119 | (defconst tramp-gvfs-enabled | 120 | (defconst tramp-gvfs-enabled |
| @@ -882,8 +883,6 @@ Operations not mentioned here will be handled by the default Emacs primitives.") | |||
| 882 | (let ((method (tramp-file-name-method vec))) | 883 | (let ((method (tramp-file-name-method vec))) |
| 883 | (and (stringp method) (member method tramp-gvfs-methods))))) | 884 | (and (stringp method) (member method tramp-gvfs-methods))))) |
| 884 | 885 | ||
| 885 | (defvar tramp-gvfs-dbus-event-vector) | ||
| 886 | |||
| 887 | ;;;###tramp-autoload | 886 | ;;;###tramp-autoload |
| 888 | (defun tramp-gvfs-file-name-handler (operation &rest args) | 887 | (defun tramp-gvfs-file-name-handler (operation &rest args) |
| 889 | "Invoke the GVFS related OPERATION and ARGS. | 888 | "Invoke the GVFS related OPERATION and ARGS. |
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 12fc25b5ba9..e7928e4e1f4 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el | |||
| @@ -64,6 +64,22 @@ | |||
| 64 | (declare-function netrc-parse "netrc") | 64 | (declare-function netrc-parse "netrc") |
| 65 | (defvar auto-save-file-name-transforms) | 65 | (defvar auto-save-file-name-transforms) |
| 66 | (defvar ls-lisp-use-insert-directory-program) | 66 | (defvar ls-lisp-use-insert-directory-program) |
| 67 | (defvar tramp-prefix-format) | ||
| 68 | (defvar tramp-prefix-regexp) | ||
| 69 | (defvar tramp-method-regexp) | ||
| 70 | (defvar tramp-postfix-method-format) | ||
| 71 | (defvar tramp-postfix-method-regexp) | ||
| 72 | (defvar tramp-prefix-ipv6-format) | ||
| 73 | (defvar tramp-prefix-ipv6-regexp) | ||
| 74 | (defvar tramp-postfix-ipv6-format) | ||
| 75 | (defvar tramp-postfix-ipv6-regexp) | ||
| 76 | (defvar tramp-postfix-host-format) | ||
| 77 | (defvar tramp-postfix-host-regexp) | ||
| 78 | (defvar tramp-remote-file-name-spec-regexp) | ||
| 79 | (defvar tramp-file-name-structure) | ||
| 80 | (defvar tramp-file-name-regexp) | ||
| 81 | (defvar tramp-completion-method-regexp) | ||
| 82 | (defvar tramp-completion-file-name-regexp) | ||
| 67 | 83 | ||
| 68 | ;; Reload `tramp-compat' when we reload `tramp-autoloads' of the GNU | 84 | ;; Reload `tramp-compat' when we reload `tramp-autoloads' of the GNU |
| 69 | ;; ELPA package. | 85 | ;; ELPA package. |
| @@ -820,23 +836,6 @@ Customize. See also `tramp-change-syntax'." | |||
| 820 | :initialize #'custom-initialize-default | 836 | :initialize #'custom-initialize-default |
| 821 | :set #'tramp-set-syntax) | 837 | :set #'tramp-set-syntax) |
| 822 | 838 | ||
| 823 | (defvar tramp-prefix-format) | ||
| 824 | (defvar tramp-prefix-regexp) | ||
| 825 | (defvar tramp-method-regexp) | ||
| 826 | (defvar tramp-postfix-method-format) | ||
| 827 | (defvar tramp-postfix-method-regexp) | ||
| 828 | (defvar tramp-prefix-ipv6-format) | ||
| 829 | (defvar tramp-prefix-ipv6-regexp) | ||
| 830 | (defvar tramp-postfix-ipv6-format) | ||
| 831 | (defvar tramp-postfix-ipv6-regexp) | ||
| 832 | (defvar tramp-postfix-host-format) | ||
| 833 | (defvar tramp-postfix-host-regexp) | ||
| 834 | (defvar tramp-remote-file-name-spec-regexp) | ||
| 835 | (defvar tramp-file-name-structure) | ||
| 836 | (defvar tramp-file-name-regexp) | ||
| 837 | (defvar tramp-completion-method-regexp) | ||
| 838 | (defvar tramp-completion-file-name-regexp) | ||
| 839 | |||
| 840 | (defun tramp-set-syntax (symbol value) | 839 | (defun tramp-set-syntax (symbol value) |
| 841 | "Set SYMBOL to value VALUE. | 840 | "Set SYMBOL to value VALUE. |
| 842 | Used in user option `tramp-syntax'. There are further variables | 841 | Used in user option `tramp-syntax'. There are further variables |