procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(special-display-frame-alist): New variable.

Browse source 
(special-display-popup-frame): New function.
(special-display-function): Set it.
This commit is contained in:
Richard M. Stallman 1994-04-23 21:38:16 +00:00
parent a90712c210
commit 8a9e86e647
1 changed files with 28 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
lisp/frame.el
View file

@ -60,6 +60,34 @@ These supersede the values given in `default-frame-alist'.")
(function (lambda ()
(new-frame pop-up-frame-alist))))
(defvar special-display-frame-alist
'((height . 14) (width . 80) (unsplittable . t))
"*Alist of frame parameters used when creating special frames.
Special frames are used for buffers whose names are in
`special-display-buffer-names' and for buffers whose names match
one of the regular expressions in `special-display-regexps'.
This variable can be set in your init file, like this:
(setq special-display-frame-alist '((width . 80) (height . 20)))
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)
(let ((window (get-buffer-window buffer t)))
(if window
;; If we have a window already, make it visible.
(let ((frame (window-frame window)))
(make-frame-visible frame)
(raise-frame frame)
window)
;; If no window yet, make one in a new frame.
(let ((frame (new-frame 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)))))
(setq special-display-function 'special-display-popup-frame)
;;;; Arrangement of frames at startup