andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(make-frame-command): New function.

Browse source 
(ctl-x-5-map): Change C-x 5 2 to make-frame-command.
This commit is contained in:
Richard M. Stallman 1996-06-07 14:52:28 +00:00
parent 8805249b95
commit 6238bfaf9c
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/frame.el
View file

@ -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)