Lines Matching +defs:set +defs:window +defs:configuration
1 ;;; frame.el --- multi-frame management independent of window systems
32 The window system startup file should set this to its frame creation
39 "*Alist of frame parameters for creating the initial X window frame.
40 You can set this in your `.emacs' file; for example,
65 You can set this in your `.emacs' file; for example,
78 This variable can be set in your init file, like this:
98 This variable can be set in your init file, like this:
107 "Display BUFFER in its own frame, reusing an existing window if any.
108 Return the window chosen.
109 Currently we do not insist on selecting the window within its frame.
116 (let ((window (get-buffer-window buffer 0)))
118 ;; If we have a window already, make it visible.
119 (when window
120 (let ((frame (window-frame window)))
123 window))
124 ;; Reuse the current window if the user requested it.
125 (when (cdr (assq 'same-window args))
127 (progn (switch-to-buffer buffer) (selected-window))
130 (when (or (cdr (assq 'same-frame args)) (cdr (assq 'same-window args)))
133 (window (display-buffer buffer)))
134 ;; Only do it if this is a new window:
135 ;; (set-window-dedicated-p window t)
136 window))
137 ;; If no window yet, make one in a new frame.
141 (set-window-buffer (frame-selected-window frame) buffer)
142 (set-window-dedicated-p (frame-selected-window frame) t)
143 (frame-selected-window frame))))))
148 (let ((frame (posn-window (event-start event)))
164 ;; 1) Load the window system startup file from the lisp library and read the
165 ;; high-priority arguments (-q and the like). The window system startup
166 ;; file should create any frames specified in the window system defaults.
170 ;; 3) Once the init file is done, we apply any newly set parameters
177 ;; (add-hook 'window-setup-hook 'frame-notice-user-settings)
192 ;; Are we actually running under a window system at all?
193 (if (and window-system (not noninteractive) (not (eq window-system 'pc)))
195 ;; Turn on special-display processing only if there's a window system.
213 ;; Delete any specifications for window geometry parameters
224 ;; No, we're not running a window system. Use make-terminal-frame if
226 (or (eq window-system 'pc)
233 "Can't create multiple frames without a window system"))))))))
268 ;; want to use save-excursion here, because that may also try to set
269 ;; the buffer of the selected window, which fails when the selected
270 ;; window is the minibuffer.
275 ;; This case happens when we don't have a window system, and
283 (if (null window-system)
292 (if (null window-system) ;; MS-DOS does this differently in pc-win.el
302 (frame-set-background-mode frame))
303 (face-set-after-frame-default frame))))))
365 ;; new one; you can't remove or add a root window to/from an
380 ;; If the user has to position the window,
430 (eq (window-frame
431 (minibuffer-window frame))
447 (new-minibuffer (minibuffer-window new-surrogate)))
483 ;; made this frame. Those are the ones actually set by
506 (frame-set-background-mode frame-initial-frame))
507 (face-set-after-frame-default frame-initial-frame)))))
510 (set-buffer old-buffer)
554 (defun next-multiframe-window ()
555 "Select the next window, regardless of which frame it is on."
557 (select-window (next-window (selected-window)
560 (select-frame-set-input-focus (selected-frame)))
562 (defun previous-multiframe-window ()
563 "Select the previous window, regardless of which frame it is on."
565 (select-window (previous-window (selected-window)
568 (select-frame-set-input-focus (selected-frame)))
581 (if (and window-system (not (eq window-system 'pc)))
613 (minibuffer . WINDOW) The frame should use WINDOW as its minibuffer window.
621 window system may select the new frame for its own reasons, for
644 (eq frame (window-frame (minibuffer-window frame)))))))
685 (defcustom focus-follows-mouse (not (eq window-system 'mac))
686 "*Non-nil if window system changes focus when you move the mouse.
687 You should set this variable to tell Emacs how your window manager
696 (defun select-frame-set-input-focus (frame)
697 "Select FRAME, raise it, and set input focus, if possible."
701 (cond ((memq window-system '(x mac))
703 ((eq window-system 'w32)
706 (set-mouse-position (selected-frame) (1- (frame-width)) 0))))
715 how the system (or the window manager) generally handles
716 focus-switching between windows. If moving the mouse onto a window
717 selects it (gives it focus), set `focus-follows-mouse' to t.
731 (select-frame-set-input-focus frame)))
773 (cond ((memq window-system '(x mac))
775 ((eq window-system 'w32)
778 (set-mouse-position frame (1- (frame-width frame)) 0))))
783 (defun current-frame-configuration ()
785 Its car is `frame-configuration'.
790 WINDOW-CONFIG is a window configuration object for FRAME."
791 (cons 'frame-configuration
796 (current-window-configuration frame))))
799 (defun set-frame-configuration (configuration &optional nodelete)
801 Each frame listed in CONFIGURATION has its position, size, window
802 configuration, and other parameters set as specified in CONFIGURATION.
808 (or (frame-configuration-p configuration)
810 (list 'frame-configuration-p configuration)))
811 (let ((config-alist (cdr configuration))
820 ;; Since we can't set a frame's minibuffer status,
826 (set-window-configuration (nth 2 parameters)))
832 ;; was made visible again, the window manager asked afresh
851 (defalias 'set-default-font 'set-frame-font)
852 (defun set-frame-font (font-name &optional keep-size)
884 (defun set-frame-parameter (frame parameter value)
890 (defun set-background-color (color-name)
897 (or window-system
898 (face-set-after-frame-default (selected-frame))))
900 (defun set-foreground-color (color-name)
907 (or window-system
908 (face-set-after-frame-default (selected-frame))))
910 (defun set-cursor-color (color-name)
918 (defun set-mouse-color (color-name)
929 (defun set-border-color (color-name)
941 Some window managers allow you to enable auto-raise for certain windows.
958 Some window managers allow you to enable auto-lower for certain windows.
968 (defun set-frame-name (name)
1025 that use a window system such as X, and false for text-only terminals.
1190 (defun set-screen-width (cols &optional pretend)
1195 (set-frame-width (selected-frame) cols pretend))
1197 (defun set-screen-height (lines &optional pretend)
1202 (set-frame-height (selected-frame) lines pretend))
1211 (let* ((mini-frame (window-frame (minibuffer-window frame)))
1224 (make-obsolete 'set-screen-width 'set-frame-width) ;before 19.15
1225 (make-obsolete 'set-screen-height 'set-frame-height) ;before 19.15
1323 window blinks.
1326 displays through a window system, because then Emacs does its own
1331 (not (memq window-system '(x w32 mac)))))
1353 This feature only works when on a window system that can change
1367 If nil, don't show a cursor except in the selected window.
1368 Use Custom to set this variable to get the display updated."
1372 :set #'(lambda (symbol value)
1373 (set-default symbol value)