Refine multi-hop specs in Tramp

* lisp/net/tramp.el (tramp-tramp-file-p): Suppress "/:" and "/c:".

* test/lisp/net/tramp-tests.el
(tramp-test01-file-name-syntax): Multi-hop specs don't need a
method.  "/h:" is allowed on non MS Windows.

1 files changed, 5 insertions, 0 deletions

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 8a81311508f..00ecb375c59 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -1146,6 +1146,11 @@ entry does not exist, return nil."
   "Return t if NAME is a string with Tramp file name syntax."
   (save-match-data
     (and (stringp name)
+         ;; No "/:" and "/c:".  This is not covered by `tramp-file-name-regexp'.
+         (not (string-match
+               (if (memq system-type '(cygwin windows-nt))
+                   "^/[[:alpha:]]?:" "^/:")
+               name))
          (string-match tramp-file-name-regexp name))))
 
 (defun tramp-find-method (method user host)