# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 783078593 0
# Node ID 1048e2d032e642750108b5012028a0e6b6d72fb1
# Parent  cd788aa8cb2a4216255728263f9e625b86c0cae4
(make-frame-on-display): New function.

diff -r cd788aa8cb2a -r 1048e2d032e6 lisp/frame.el
--- a/lisp/frame.el	Tue Oct 25 09:48:44 1994 +0000
+++ b/lisp/frame.el	Tue Oct 25 09:49:53 1994 +0000
@@ -393,6 +393,12 @@
 				  (> (minibuffer-depth) 0)
 				  t)))
 
+(defun make-frame-on-display (display &optional parameters)
+  "Make a frame on display DISPLAY.
+The optional second argument PARAMETERS specifies additional frame parameters."
+  (interactive "sMake frame on display: ")
+  (make-frame (cons (cons 'display display) parameters)))
+
 ;; Alias, kept temporarily.
 (defalias 'new-frame 'make-frame)
 (defun make-frame (&optional parameters)