# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 783370060 0
# Node ID 1368ece6ec04a0832044ce046c291aadb909e5f4
# Parent  093d80b4ae1769ca8a39ffeeef5d145a5315797b
(frame-initialize): Set special-display-function here,
not at top level.

diff -r 093d80b4ae17 -r 1368ece6ec04 lisp/frame.el
--- 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