/[emacs]/emacs/lisp/frame.el
ViewVC logotype

Diff of /emacs/lisp/frame.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.203.2.5 by miles, Fri Aug 27 07:00:26 2004 UTC revision 1.203.2.6 by miles, Fri Oct 22 10:13:29 2004 UTC
# Line 135  Pass it BUFFER as first arg, and (cdr AR Line 135  Pass it BUFFER as first arg, and (cdr AR
135             ;; (set-window-dedicated-p window t)             ;; (set-window-dedicated-p window t)
136             window))             window))
137         ;; If no window yet, make one in a new frame.         ;; If no window yet, make one in a new frame.
138         (let ((frame (make-frame (append args special-display-frame-alist))))         (let ((frame
139                  (with-current-buffer buffer
140                    (make-frame (append args special-display-frame-alist)))))
141           (set-window-buffer (frame-selected-window frame) buffer)           (set-window-buffer (frame-selected-window frame) buffer)
142           (set-window-dedicated-p (frame-selected-window frame) t)           (set-window-dedicated-p (frame-selected-window frame) t)
143           (frame-selected-window frame))))))           (frame-selected-window frame))))))

Legend:
Removed from v.1.203.2.5  
changed lines
  Added in v.1.203.2.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26