Mercurial > emacs

comparison lisp/net/tramp.el @ 46347:3996ea20e5e3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(tramp-multi-file-name-structure-unified): Add missing slash and move colon from start to end of each hop. (tramp-multi-file-name-hop-structure-unified): Move colon from start to end of each hop.
author Kai Großjohann <kgrossjo@eu.uu.net>
date Sat, 13 Jul 2002 17:41:01 +0000
parents a2d047d50fb9
children f548d7d0c651
comparison
equal deleted inserted replaced
46346:49f06e689a20 46347:3996ea20e5e3
1022 Also see `tramp-make-tramp-file-format', `tramp-file-name-structure', and `tramp-file-name-regexp'." 1022 Also see `tramp-make-tramp-file-format', `tramp-file-name-structure', and `tramp-file-name-regexp'."
1023 :group 'tramp 1023 :group 'tramp
1024 :type 'string) 1024 :type 'string)
1025 1025
1026 (defconst tramp-multi-file-name-structure-unified 1026 (defconst tramp-multi-file-name-structure-unified
1027 (list (concat "\\`\\([a-zA-Z0-9]+\\)\\)?" ;method 1027 (list (concat "\\`/\\(\\([a-zA-Z0-9]+\\)?:\\)" ;method
1028 "\\(\\(%s\\)+\\)" ;hops 1028 "\\(\\(%s\\)+\\)" ;hops
1029 ":\\(.*\\)\\'") ;path 1029 "\\(.*\\)\\'") ;path
1030 2 3 -1) 1030 2 3 -1)
1031 "Value for `tramp-multi-file-name-structure' for unified remoting. 1031 "Value for `tramp-multi-file-name-structure' for unified remoting.
1032 Emacs (not XEmacs) uses a unified filename syntax for Ange-FTP and Tramp. 1032 Emacs (not XEmacs) uses a unified filename syntax for Ange-FTP and Tramp.
1033 See `tramp-file-name-structure-unified' for details.") 1033 See `tramp-file-name-structure-unified' for details.")
1034 1034
1035 (defconst tramp-file-name-structure-separate 1035 (defconst tramp-file-name-structure-separate
1036 (list (concat 1036 (list (concat
1037 ;; prefix 1037 ;; prefix
1038 "\\`/\\[\\(\\([a-z0-9]+\\)\\)?" 1038 "\\`/\\[\\(\\([a-z0-9]+\\)?\\)"
1039 ;; regexp specifying the hops 1039 ;; regexp specifying the hops
1040 "\\(\\(%s\\)+\\)" 1040 "\\(\\(%s\\)+\\)"
1041 ;; path name 1041 ;; path name
1042 "\\]\\(.*\\)\\'") 1042 "\\]\\(.*\\)\\'")
1043 2 ;number of pair to match method 1043 2 ;number of pair to match method
1077 (integer :tag "Paren pair for method name") 1077 (integer :tag "Paren pair for method name")
1078 (integer :tag "Paren pair for hops") 1078 (integer :tag "Paren pair for hops")
1079 (integer :tag "Paren pair to match path"))) 1079 (integer :tag "Paren pair to match path")))
1080 1080
1081 (defconst tramp-multi-file-name-hop-structure-unified 1081 (defconst tramp-multi-file-name-hop-structure-unified
1082 (list (concat ":\\([a-zA-z0-9_]+\\):" ;hop method 1082 (list (concat "\\([a-zA-z0-9_]+\\):" ;hop method
1083 "\\([^@:/]+\\)@" ;user 1083 "\\([^@:/]+\\)@" ;user
1084 "\\([^:/]+\\)") ;host 1084 "\\([^:/]+\\):") ;host
1085 1 2 3) 1085 1 2 3)
1086 "Value of `tramp-multi-file-name-hop-structure' for unified remoting. 1086 "Value of `tramp-multi-file-name-hop-structure' for unified remoting.
1087 Emacs (not XEmacs) uses a unified filename syntax for Ange-FTP and Tramp. 1087 Emacs (not XEmacs) uses a unified filename syntax for Ange-FTP and Tramp.
1088 See `tramp-file-name-structure-unified' for details.") 1088 See `tramp-file-name-structure-unified' for details.")
1089 1089