comparison lisp/frame.el @ 7343:81f9ad98c323

(frame-notice-user-settings): When replacing the first X frame, use the same geometry parms that were used to make it. (frame-remove-geometry-params): Treat user-size and user-position as geometry parms. Store all those parms into frame-initial-geometry-arguments.

7342:4cf4669565af

;;; If we create the initial frame, this is it.
(defvar frame-initial-frame nil)

;; Record the parameters used in frame-initialize to make the initial frame.
(defvar frame-initial-frame-alist)

;;; startup.el calls this function before loading the user's init
;;; file - if there is no frame with a minibuffer open now, create
;;; one to display messages while loading the init file.
(defun frame-initialize ()

				  default-frame-alist
				  (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))
		  (make-frame (append minibuffer-frame-alist

	       (eq frame (window-frame (minibuffer-window frame)))))))

(defun frame-remove-geometry-params (param-list)
  "Return the parameter list PARAM-LIST, but with geometry specs removed.
This deletes all bindings in PARAM-LIST for `top', `left', `width',
and `height' parameters.
Emacs uses this to avoid overriding explicit moves and resizings from
the user during startup."
  (setq param-list (cons nil param-list))
  (let ((tail param-list))
    (while (consp (cdr tail))
      (if (and (consp (car (cdr tail)))
	       (memq (car (car (cdr tail))) '(height width top left)))
	  (setcdr tail (cdr (cdr tail)))
	(setq tail (cdr tail)))))
  (cdr param-list))


(defun other-frame (arg)

7343:81f9ad98c323

;;; If we create the initial frame, this is it.
(defvar frame-initial-frame nil)

;; Record the parameters used in frame-initialize to make the initial frame.
(defvar frame-initial-frame-alist)

(defvar frame-initial-geometry-arguments nil)

;;; startup.el calls this function before loading the user's init
;;; file - if there is no frame with a minibuffer open now, create
;;; one to display messages while loading the init file.
(defun frame-initialize ()

				  default-frame-alist
				  (frame-parameters frame-initial-frame)
				  nil))
		   ;; Get rid of `reverse', because that was handled
		   ;; when we first made the frame.
		   (new (make-frame
			 ;; Use the geometry args that created the existing
			 ;; frame, rather than the parms we get for it.q
			 (append frame-initial-geometry-arguments
				 (let (frame-initial-geometry-arguments)
				   (frame-remove-geometry-params
				    (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))
		  (make-frame (append minibuffer-frame-alist

	       (eq frame (window-frame (minibuffer-window frame)))))))

(defun frame-remove-geometry-params (param-list)
  "Return the parameter list PARAM-LIST, but with geometry specs removed.
This deletes all bindings in PARAM-LIST for `top', `left', `width',
`height', `user-size' and `user-position' parameters.
Emacs uses this to avoid overriding explicit moves and resizings from
the user during startup."
  (setq param-list (cons nil param-list))
  (let ((tail param-list))
    (while (consp (cdr tail))
      (if (and (consp (car (cdr tail)))
	       (memq (car (car (cdr tail)))
		     '(height width top left user-position user-size)))
	  (progn
	    (setq frame-initial-geometry-arguments
		  (cons (car (cdr tail)) frame-initial-geometry-arguments))
	    (setcdr tail (cdr (cdr tail))))
	(setq tail (cdr tail)))))
  (cdr param-list))


(defun other-frame (arg)