Mercurial > emacs

comparison lisp/frame.el @ 83221:0fc4928cc48e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged in changes from CVS trunk. Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-616 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-617 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-618 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-619 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-620 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-621 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-622 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-623 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-624 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-625 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-51 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-52 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-53 Merge from emacs--cvs-trunk--0 git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-261
author Karoly Lorentey <lorentey@elte.hu>
date Tue, 19 Oct 2004 17:00:02 +0000
parents 22658e29bd48 841073f11023
children 5bc762f84335
comparison
equal deleted inserted replaced
83220:fe1db7935e1a 83221:0fc4928cc48e
151 (window (display-buffer buffer))) 151 (window (display-buffer buffer)))
152 ;; Only do it if this is a new window: 152 ;; Only do it if this is a new window:
153 ;; (set-window-dedicated-p window t) 153 ;; (set-window-dedicated-p window t)
154 window)) 154 window))
155 ;; If no window yet, make one in a new frame. 155 ;; If no window yet, make one in a new frame.
156 (let ((frame (make-frame (append args special-display-frame-alist)))) 156 (let ((frame
157 (with-current-buffer buffer
158 (make-frame (append args special-display-frame-alist)))))
157 (set-window-buffer (frame-selected-window frame) buffer) 159 (set-window-buffer (frame-selected-window frame) buffer)
158 (set-window-dedicated-p (frame-selected-window frame) t) 160 (set-window-dedicated-p (frame-selected-window frame) t)
159 (frame-selected-window frame)))))) 161 (frame-selected-window frame))))))
160 162
161 (defun handle-delete-frame (event) 163 (defun handle-delete-frame (event)