Mercurial > emacs
comparison lisp/frame.el @ 10601:b357feae0096
(frame-notice-user-settings): Avoid having the window manager re-prompt for
the initial frame's clone.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Mon, 30 Jan 1995 23:47:17 +0000 |
parents | 132a846eba8e |
children | f93c3156e05a |
comparison
equal
deleted
inserted
replaced
10600:45bbb119e1a3 | 10601:b357feae0096 |
---|---|
259 (setq parms (frame-delete-all 'top parms))) | 259 (setq parms (frame-delete-all 'top parms))) |
260 (setq new | 260 (setq new |
261 (make-frame | 261 (make-frame |
262 ;; Use the geometry args that created the existing | 262 ;; Use the geometry args that created the existing |
263 ;; frame, rather than the parms we get for it. | 263 ;; frame, rather than the parms we get for it. |
264 (append frame-initial-geometry-arguments parms))) | 264 (append frame-initial-geometry-arguments |
265 '((user-size . t) (user-position . t)) | |
266 parms))) | |
265 ;; The initial frame, which we are about to delete, may be | 267 ;; The initial frame, which we are about to delete, may be |
266 ;; the only frame with a minibuffer. If it is, create a | 268 ;; the only frame with a minibuffer. If it is, create a |
267 ;; new one. | 269 ;; new one. |
268 (or (delq frame-initial-frame (minibuffer-frame-list)) | 270 (or (delq frame-initial-frame (minibuffer-frame-list)) |
269 (make-frame (append minibuffer-frame-alist | 271 (make-frame (append minibuffer-frame-alist |