From 6238bfaf9cc5ba1870e3916b996c7c78bcec8340 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 7 Jun 1996 14:52:28 +0000 Subject: [PATCH] (make-frame-command): New function. (ctl-x-5-map): Change C-x 5 2 to make-frame-command. --- lisp/frame.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) 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) -- 2.39.2