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)))))) |