From: Juanma Barranquero <lekktu@gmail.com>
Date: Fri, 7 Nov 2008 14:52:02 +0000 (+0000)
Subject: * frame.el (make-frame-on-display): Use `string-match-p'.
X-Git-Tag: emacs-pretest-23.0.90~1924
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=69135f12970865d9d78dd4054f06afbce40c56c0;p=emacs.git

* frame.el (make-frame-on-display): Use `string-match-p'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5ae59c620a1..9508ebe96e0 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-11-07  Juanma Barranquero  <lekktu@gmail.com>
+
+	* frame.el (make-frame-on-display): Use `string-match-p'.
+
 2008-11-07  Glenn Morris  <rgm@gnu.org>
 
 	* progmodes/cc-defs.el (cl-macroexpand-all): Fix declaration.
diff --git a/lisp/frame.el b/lisp/frame.el
index ddd4aea88b9..316ab36cae7 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -620,7 +620,7 @@ The optional argument PARAMETERS specifies additional frame parameters."
 	 ;; On Windows, ignore DISPLAY.
 	 (make-frame parameters))
 	(t
-	 (unless (string-match "\\`[^:]*:[0-9]+\\(\\.[0-9]+\\)?\\'" display)
+	 (unless (string-match-p "\\`[^:]*:[0-9]+\\(\\.[0-9]+\\)?\\'" display)
 	   (error "Invalid display, not HOST:SERVER or HOST:SERVER.SCREEN"))
 	 (when (and (boundp 'x-initialized) (not x-initialized))
 	   (setq x-display-name display)