Mercurial > emacs
changeset 8990:0496b5d4173c
(special-display-popup-frame): New argument PARAMS.
Use it as well as `special-display-frame-alist'.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 22 Sep 1994 05:03:56 +0000 |
| parents | 54b7aaded223 |
| children | 2a9359b721da |
| files | lisp/frame.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/frame.el Thu Sep 22 04:56:49 1994 +0000 +++ b/lisp/frame.el Thu Sep 22 05:03:56 1994 +0000 @@ -84,7 +84,7 @@ ;; Display BUFFER in its own frame, reusing an existing window if any. ;; Return the window chosen. ;; Currently we do not insist on selecting the window within its frame. -(defun special-display-popup-frame (buffer) +(defun special-display-popup-frame (buffer &optional params) (let ((window (get-buffer-window buffer t))) (if window ;; If we have a window already, make it visible. @@ -93,7 +93,7 @@ (raise-frame frame) window) ;; If no window yet, make one in a new frame. - (let ((frame (make-frame special-display-frame-alist))) + (let ((frame (make-frame (append params special-display-frame-alist)))) (set-window-buffer (frame-selected-window frame) buffer) (set-window-dedicated-p (frame-selected-window frame) t) (frame-selected-window frame)))))