From 62642af94c6e3373536580c27dceba500ab1bde0 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 28 Oct 1994 18:47:40 +0000 Subject: [PATCH] (frame-initialize): Set special-display-function here, not at top level. --- lisp/frame.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/frame.el b/lisp/frame.el index 577771c5901..b3c599aae77 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -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 -- 2.39.5