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

(frame-initialize): Set special-display-function here,

Browse source 
not at top level.
This commit is contained in:
Richard M. Stallman 1994-10-28 18:47:40 +00:00
parent d009603cbf
commit 62642af94c
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/frame.el
View file

@ -104,8 +104,6 @@ These supersede the values given in `default-frame-alist'.")
(set-window-dedicated-p (frame-selected-window frame) t)
(frame-selected-window frame))))))
(setq special-display-function 'special-display-popup-frame)
;; Handle delete-frame events from the X server.
(defun handle-delete-frame (event)
(interactive "e")
@ -150,10 +148,13 @@ These supersede the values given in `default-frame-alist'.")
;;; file - if there is no frame with a minibuffer open now, create
;;; one to display messages while loading the init file.
(defun frame-initialize ()
;; Are we actually running under a window system at all?
(if (and window-system (not noninteractive))
(progn
;; Turn on special-display processing only if there's a window system.
(setq special-display-function 'special-display-popup-frame)
;; If there is no frame with a minibuffer besides the terminal
;; frame, then we need to create the opening frame. Make sure
;; it has a minibuffer, but let initial-frame-alist omit the