Mercurial > emacs
comparison lisp/frame.el @ 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 | 1048e2d032e6 |
| children | dd28f1cd68d2 |
comparison
equal
deleted
inserted
replaced
| 9736:093d80b4ae17 | 9737:1368ece6ec04 |
|---|---|
| 102 (let ((frame (make-frame (append args special-display-frame-alist)))) | 102 (let ((frame (make-frame (append args special-display-frame-alist)))) |
| 103 (set-window-buffer (frame-selected-window frame) buffer) | 103 (set-window-buffer (frame-selected-window frame) buffer) |
| 104 (set-window-dedicated-p (frame-selected-window frame) t) | 104 (set-window-dedicated-p (frame-selected-window frame) t) |
| 105 (frame-selected-window frame)))))) | 105 (frame-selected-window frame)))))) |
| 106 | 106 |
| 107 (setq special-display-function 'special-display-popup-frame) | |
| 108 | |
| 109 ;; Handle delete-frame events from the X server. | 107 ;; Handle delete-frame events from the X server. |
| 110 (defun handle-delete-frame (event) | 108 (defun handle-delete-frame (event) |
| 111 (interactive "e") | 109 (interactive "e") |
| 112 (let ((frame (posn-window (event-start event))) | 110 (let ((frame (posn-window (event-start event))) |
| 113 (i 0) | 111 (i 0) |
| 148 | 146 |
| 149 ;;; startup.el calls this function before loading the user's init | 147 ;;; startup.el calls this function before loading the user's init |
| 150 ;;; file - if there is no frame with a minibuffer open now, create | 148 ;;; file - if there is no frame with a minibuffer open now, create |
| 151 ;;; one to display messages while loading the init file. | 149 ;;; one to display messages while loading the init file. |
| 152 (defun frame-initialize () | 150 (defun frame-initialize () |
| 153 | 151 |
| 154 ;; Are we actually running under a window system at all? | 152 ;; Are we actually running under a window system at all? |
| 155 (if (and window-system (not noninteractive)) | 153 (if (and window-system (not noninteractive)) |
| 156 (progn | 154 (progn |
| 155 ;; Turn on special-display processing only if there's a window system. | |
| 156 (setq special-display-function 'special-display-popup-frame) | |
| 157 | |
| 157 ;; If there is no frame with a minibuffer besides the terminal | 158 ;; If there is no frame with a minibuffer besides the terminal |
| 158 ;; frame, then we need to create the opening frame. Make sure | 159 ;; frame, then we need to create the opening frame. Make sure |
| 159 ;; it has a minibuffer, but let initial-frame-alist omit the | 160 ;; it has a minibuffer, but let initial-frame-alist omit the |
| 160 ;; minibuffer spec. | 161 ;; minibuffer spec. |
| 161 (or (delq terminal-frame (minibuffer-frame-list)) | 162 (or (delq terminal-frame (minibuffer-frame-list)) |