Mercurial > emacs
changeset 9737:1368ece6ec04
(frame-initialize): Set special-display-function here,
not at top level.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 28 Oct 1994 18:47:40 +0000 |
| parents | 093d80b4ae17 |
| children | 511563c17f9c |
| files | lisp/frame.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/frame.el Fri Oct 28 18:45:45 1994 +0000 +++ b/lisp/frame.el Fri Oct 28 18:47:40 1994 +0000 @@ -104,8 +104,6 @@ (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 @@ ;;; 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