;;; frame.el --- multi-frame management independent of window systems.
-;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
+;; Copyright (C) 1993, 1994, 1996, 1997 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Keywords: internal
;;; The initial value given here for used to ask for a minibuffer.
;;; But that's not necessary, because the default is to have one.
;;; By not specifying it here, we let an X resource specify it.
-(defvar initial-frame-alist nil
+(defcustom initial-frame-alist nil
"Alist of frame parameters for creating the initial X window frame.
You can set this in your `.emacs' file; for example,
(setq initial-frame-alist '((top . 1) (left . 1) (width . 80) (height . 55)))
* Set `default-frame-alist' to override these options so that they
don't affect subsequent frames.
* Set `initial-frame-alist' in a way that matches the X resources,
- to override what you put in `default-frame-alist'.")
+ to override what you put in `default-frame-alist'."
+ :type '(repeat (cons :format "%v"
+ (symbol :tag "Parameter")
+ (sexp :tag "Value")))
+ :group 'frames)
(defvar minibuffer-frame-alist '((width . 80) (height . 2))
"Alist of frame parameters for initially creating a minibuffer frame.
(function (lambda ()
(make-frame pop-up-frame-alist))))
-(defvar special-display-frame-alist
+(defcustom special-display-frame-alist
'((height . 14) (width . 80) (unsplittable . t))
"*Alist of frame parameters used when creating special frames.
Special frames are used for buffers whose names are in
one of the regular expressions in `special-display-regexps'.
This variable can be set in your init file, like this:
(setq special-display-frame-alist '((width . 80) (height . 20)))
-These supersede the values given in `default-frame-alist'.")
+These supersede the values given in `default-frame-alist'."
+ :type '(repeat (cons :format "%v"
+ (symbol :tag "Parameter")
+ (sexp :tag "Value")))
+ :group 'frames)
;; Display BUFFER in its own frame, reusing an existing window if any.
;; Return the window chosen.
(progn
(setq frame-initial-frame-alist
(append initial-frame-alist default-frame-alist))
- ;; Record these with their default values
- ;; if they don't have any values explicitly.
- (or (assq 'vertical-scroll-bars frame-initial-frame-alist)
- (setq frame-initial-frame-alist
- (cons '(vertical-scroll-bars . t)
- frame-initial-frame-alist)))
(or (assq 'horizontal-scroll-bars frame-initial-frame-alist)
(setq frame-initial-frame-alist
(cons '(horizontal-scroll-bars . t)
frame-initial-frame-alist)))
(setq default-minibuffer-frame
(setq frame-initial-frame
- (make-frame initial-frame-alist)))
+ (make-frame frame-initial-frame-alist)))
;; Delete any specifications for window geometry parameters
;; so that we won't reapply them in frame-notice-user-settings.
;; It would be wrong to reapply them then,
"Make a frame on display DISPLAY.
The optional second argument PARAMETERS specifies additional frame parameters."
(interactive "sMake frame on display: ")
+ (or (string-match "\\`[^:]*:[0-9]+\\(\\.[0-9]+\\)?\\'" display)
+ (error "Invalid display, not HOST:SERVER or HOST:SERVER.SCREEN"))
(make-frame (cons (cons 'display display) parameters)))
(defun make-frame-command ()
(cdr param-list))
+(defcustom focus-follows-mouse t
+ "*Non-nil if window system changes focus when you move the mouse."
+ :type 'boolean
+ :group 'frames
+ :version "20.3")
+
(defun other-frame (arg)
"Select the ARG'th different visible frame, and raise it.
All frames are arranged in a cyclic order.
(setq arg (1+ arg)))
(raise-frame frame)
(select-frame frame)
- (set-mouse-position (selected-frame) (1- (frame-width)) 0)))
+ ;; Ensure, if possible, that frame gets input focus.
+ (if (eq window-system 'w32)
+ (w32-focus-frame frame)
+ (when focus-follows-mouse
+ (set-mouse-position (selected-frame) (1- (frame-width)) 0)))))
+
+(defun make-frame-names-alist ()
+ (let* ((current-frame (selected-frame))
+ (falist
+ (cons
+ (cons (frame-parameter current-frame 'name) current-frame) nil))
+ (frame (next-frame nil t)))
+ (while (not (eq frame current-frame))
+ (progn
+ (setq falist (cons (cons (frame-parameter frame 'name) frame) falist))
+ (setq frame (next-frame frame t))))
+ falist))
+
+(defvar frame-name-history nil)
+(defun select-frame-by-name (name)
+ "Select the frame whose name is NAME and raise it.
+If there is no frame by that name, signal an error."
+ (interactive
+ (let* ((frame-names-alist (make-frame-names-alist))
+ (default (car (car frame-names-alist)))
+ (input (completing-read
+ (format "Select Frame (default %s): " default)
+ frame-names-alist nil t nil 'frame-name-history)))
+ (if (= (length input) 0)
+ (list default)
+ (list input))))
+ (let* ((frame-names-alist (make-frame-names-alist))
+ (frame (cdr (assoc name frame-names-alist))))
+ (or frame
+ (error "There is no frame named `%s'" name))
+ (make-frame-visible frame)
+ (raise-frame frame)
+ (select-frame frame)
+ ;; Ensure, if possible, that frame gets input focus.
+ (if (eq window-system 'w32)
+ (w32-focus-frame frame)
+ (when focus-follows-mouse
+ (set-mouse-position (selected-frame) (1- (frame-width)) 0)))))
\f
;;;; Frame configurations
;;;; Convenience functions for accessing and interactively changing
;;;; frame parameters.
+(defun frame-parameter (frame parameter)
+ "Return FRAME's value for parameter PARAMETER.
+If FRAME is nil, describe the currently selected frame."
+ (cdr (assq parameter (frame-parameters frame))))
+
(defun frame-height (&optional frame)
"Return number of lines available for display on FRAME.
If FRAME is omitted, describe the currently selected frame."
-1 1)))
(modify-frame-parameters (selected-frame)
(list (cons 'auto-lower (> arg 0)))))
-
-(defvar scroll-bar-side 'left
- "*Specify which side scroll bars should be on. Value is `left' or `right'.")
-
-(defun toggle-scroll-bar (arg)
- "Toggle whether or not the selected frame has vertical scroll bars.
-With arg, turn vertical scroll bars on if and only if arg is positive."
- (interactive "P")
- (if (null arg)
- (setq arg
- (if (cdr (assq 'vertical-scroll-bars
- (frame-parameters (selected-frame))))
- -1 1)))
+(defun set-frame-name (name)
+ "Set the name of the selected frame to NAME.
+When called interactively, prompt for the name of the frame.
+The frame name is displayed on the modeline if the terminal displays only
+one frame, otherwise the name is displayed on the frame's caption bar."
+ (interactive "sFrame name: ")
(modify-frame-parameters (selected-frame)
- (list (cons 'vertical-scroll-bars
- (if (> arg 0)
- scroll-bar-side)))))
-
-(defun toggle-horizontal-scroll-bar (arg)
- "Toggle whether or not the selected frame has horizontal scroll bars.
-With arg, turn horizontal scroll bars on if and only if arg is positive.
-Horizontal scroll bars aren't implemented yet."
- (interactive "P")
- (error "Horizontal scroll bars aren't implemented yet"))
-
+ (list (cons 'name name))))
\f
;;;; Aliases for backward compatibility with Emacs 18.
(defalias 'screen-height 'frame-height)
HCoop / bpt / emacs.git / blobdiff