# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 896114733 0
# Node ID 96217e8a9b7f32b9ae23edb95eb37d4e1e55d6bb
# Parent  35af9a27627255ea81d86fb538d018df68ba3e24
(make-frame-on-display): Fix previous change.

diff -r 35af9a276272 -r 96217e8a9b7f lisp/frame.el
--- a/lisp/frame.el	Mon May 25 16:28:02 1998 +0000
+++ b/lisp/frame.el	Mon May 25 16:45:33 1998 +0000
@@ -414,8 +414,8 @@
   "Make a frame on display DISPLAY.
 The optional second argument PARAMETERS specifies additional frame parameters."
   (interactive "sMake frame on display: ")
-  (or (string-match "\\`[^:]+:[0-9]+\\(:[0-9]+\\)?\\'" display)
-      (error "Invalid display, not HOST:SERVER or HOST:SERVER:SCREEN"))
+  (or (string-match "\\`[^:]*:[0-9]+\\(\\.[0-9]+\\)?\\'" display)
+      (error "Invalid display, not HOST:SERVER or HOST:SERVER.SCREEN"))
   (make-frame (cons (cons 'display display) parameters)))
 
 (defun make-frame-command ()