mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-29 11:02:01 +00:00
Code Issues Releases Activity

(frame-notice-user-settings): Discard `reverse' when

Browse Source 
making the replacement for the initial frame.  Put it on as nil.
(new-frame): Use make-frame instead.
This commit is contained in:
Richard M. Stallman 1994-05-04 22:41:02 +00:00
parent b1fd1e8d65
commit 6eb018badd
1 changed files with 14 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lisp/frame.el
View File

@ -58,7 +58,7 @@ These supersede the values given in `default-frame-alist'.")
(setq pop-up-frame-function
(function (lambda ()
(new-frame pop-up-frame-alist))))
(make-frame pop-up-frame-alist))))
(defvar special-display-frame-alist
'((height . 14) (width . 80) (unsplittable . t))
@ -82,7 +82,7 @@ These supersede the values given in `default-frame-alist'.")
(raise-frame frame)
window)
;; If no window yet, make one in a new frame.
(let ((frame (new-frame special-display-frame-alist)))
(let ((frame (make-frame special-display-frame-alist)))
(set-window-buffer (frame-selected-window frame) buffer)
(set-window-dedicated-p (frame-selected-window frame) t)
(frame-selected-window frame)))))
@ -130,7 +130,7 @@ These supersede the values given in `default-frame-alist'.")
(append initial-frame-alist default-frame-alist))
(setq default-minibuffer-frame
(setq frame-initial-frame
(new-frame initial-frame-alist)))
(make-frame initial-frame-alist)))
;; Delete any specifications for window geometry parameters
;; so that we won't reapply them in frame-notice-user-settings.
;; It would be wrong to reapply them then,
@ -181,17 +181,19 @@ These supersede the values given in `default-frame-alist'.")
'(minibuffer . t)))
t))
;; Create the new frame.
(let ((new
(new-frame
(append initial-frame-alist
(let* ((parms (append initial-frame-alist
default-frame-alist
(frame-parameters frame-initial-frame)))))
(frame-parameters frame-initial-frame)
nil))
;; Get rid of `reverse', because that was handled
;; when we first made the frame.
(new (make-frame (cons '(reverse . nil)
(delq (assq 'reverse parms) parms)))))
;; The initial frame, which we are about to delete, may be
;; the only frame with a minibuffer. If it is, create a
;; new one.
(or (delq frame-initial-frame (minibuffer-frame-list))
(new-frame (append minibuffer-frame-alist
(make-frame (append minibuffer-frame-alist
'((minibuffer . only)))))
;; If the initial frame is serving as a surrogate
@ -280,7 +282,7 @@ These supersede the values given in `default-frame-alist'.")
;;; considered (see next-frame).
(defun get-other-frame ()
(let ((s (if (equal (next-frame (selected-frame)) (selected-frame))
(new-frame)
(make-frame)
(next-frame (selected-frame)))))
s))
@ -578,7 +580,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" 'new-frame)
(define-key ctl-x-5-map "2" 'make-frame)
(define-key ctl-x-5-map "0" 'delete-frame)
(define-key ctl-x-5-map "o" 'other-frame)