mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-16 17:19:41 +00:00
Code Issues Releases Activity

(special-display-popup-frame): New argument PARAMS.

Browse Source 
Use it as well as `special-display-frame-alist'.
This commit is contained in:
Richard M. Stallman 1994-09-22 05:03:56 +00:00
parent c13fbb6297
commit 42354c891c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/frame.el
View File

@ -84,7 +84,7 @@ These supersede the values given in `default-frame-alist'.")
;; 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 @@ These supersede the values given in `default-frame-alist'.")
(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)))))