aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMichael Albinus2023-06-22 11:07:10 +0200
committerMichael Albinus2023-06-22 11:07:10 +0200
commit311a25807fc6fe0589a331f400ba28af4e328e4b (patch)
treed3b2d4eb12ab2af14b61a0b64d942496a7c947b0
parent8ca8fb484143a639f08987146bfdebf97d1541f4 (diff)
downloademacs-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.el3
-rw-r--r--lisp/net/tramp.el33
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.
842Used in user option `tramp-syntax'. There are further variables 841Used in user option `tramp-syntax'. There are further variables