From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 7 Jun 1996 14:52:28 +0000 (+0000)
Subject: (make-frame-command): New function.
X-Git-Tag: emacs-19.34~515
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6238bfaf9cc5ba1870e3916b996c7c78bcec8340;p=emacs.git

(make-frame-command): New function.
(ctl-x-5-map): Change C-x 5 2 to make-frame-command.
---

diff --git a/lisp/frame.el b/lisp/frame.el
index 29d8c76f5aa..a5e0c816053 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -417,6 +417,13 @@ The optional second argument PARAMETERS specifies additional frame parameters."
   (interactive "sMake frame on display: ")
   (make-frame (cons (cons 'display display) parameters)))
 
+(defun make-frame-command ()
+  "Make a new frame, and select it if the terminal displays only one frame."
+  (interactive)
+  (if window-system
+      (make-frame)
+    (select-frame (make-frame))))
+
 ;; Alias, kept temporarily.
 (defalias 'new-frame 'make-frame)
 (defun make-frame (&optional parameters)
@@ -705,7 +712,7 @@ should use `set-frame-width' instead."
 (defalias 'ctl-x-5-prefix ctl-x-5-map)
 (define-key ctl-x-map "5" 'ctl-x-5-prefix)
 
-(define-key ctl-x-5-map "2" 'make-frame)
+(define-key ctl-x-5-map "2" 'make-frame-command)
 (define-key ctl-x-5-map "0" 'delete-frame)
 (define-key ctl-x-5-map "o" 'other-frame)