# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 780210236 0
# Node ID 0496b5d4173c18c235c03c83e0ca7c78d09ef468
# Parent  54b7aaded223997d8a10db526c451475e24d96ce
(special-display-popup-frame): New argument PARAMS.
Use it as well as `special-display-frame-alist'.

diff -r 54b7aaded223 -r 0496b5d4173c lisp/frame.el
--- 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)))))