From: Michael Albinus <michael.albinus@gmx.de>
Date: Wed, 4 Oct 2017 09:48:37 +0000 (+0200)
Subject: * lisp/net/tramp.el (tramp-tramp-file-p): Use `string-match-p'.
X-Git-Tag: emacs-26.0.90~51
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0b558b4acb8326c6f26fcde47ca85777716ae831;p=emacs.git

* lisp/net/tramp.el (tramp-tramp-file-p): Use `string-match-p'.

Reported by Clément Pit-Claudel <cpitclaudel@gmail.com>.
---

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index ac882abae54..c8b6e68f719 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -1269,14 +1269,14 @@ entry does not exist, return nil."
 ;;;###tramp-autoload
 (defun tramp-tramp-file-p (name)
   "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))))
+  (and (stringp name)
+       ;; No "/:" and "/c:".  This is not covered by `tramp-file-name-regexp'.
+       (not (string-match-p
+	     (if (memq system-type '(cygwin windows-nt))
+		 "^/[[:alpha:]]?:" "^/:")
+	     name))
+       (string-match-p tramp-file-name-regexp name)
+       t))
 
 (defun tramp-find-method (method user host)
   "Return the right method string to use.