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 |
(let ((frame |
139 |
(with-current-buffer buffer |
(with-current-buffer buffer |
140 |
(make-frame (append args special-display-frame-alist))))) |
(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) |
593 |
|
|
594 |
;; Alias, kept temporarily. |
;; Alias, kept temporarily. |
595 |
(defalias 'new-frame 'make-frame) |
(defalias 'new-frame 'make-frame) |
596 |
(make-obsolete 'new-frame 'make-frame "21.4") |
(make-obsolete 'new-frame 'make-frame "22.1") |
597 |
|
|
598 |
(defun make-frame (&optional parameters) |
(defun make-frame (&optional parameters) |
599 |
"Return a newly created frame displaying the current buffer. |
"Return a newly created frame displaying the current buffer. |
1195 |
|
|
1196 |
;; miscellaneous obsolescence declarations |
;; miscellaneous obsolescence declarations |
1197 |
(defvaralias 'delete-frame-hook 'delete-frame-functions) |
(defvaralias 'delete-frame-hook 'delete-frame-functions) |
1198 |
(make-obsolete-variable 'delete-frame-hook 'delete-frame-functions "21.4") |
(make-obsolete-variable 'delete-frame-hook 'delete-frame-functions "22.1") |
1199 |
|
|
1200 |
|
|
1201 |
;; Highlighting trailing whitespace. |
;; Highlighting trailing whitespace. |