;ELC ;;; compiled by jwz@thalidomide on Wed Mar 23 19:15:57 1994 ;;; from file /th/jwz/emacs19/lisp/prim/screen.el ;;; emacs version 19.10 Lucid (beta8). ;;; bytecomp version 2.22; 22-dec-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (byte-code " #MMM" [define-key global-map "" iconify-emacs live-screen-p screen-live-p x-pixel-width screen-pixel-width x-pixel-height screen-pixel-height] 4) (defvar select-screen-hook nil "\ Function or functions to run just after a new screen is selected.") (defvar deselect-screen-hook nil "\ Function or functions to run just before selecting another screen.") (defvar screen-creation-function '-no-window-system-yet- "\ Window-system dependent function to call to create a new screen. The window system startup file should set this to its screen creation function, which should take an alist of parameters as its argument.") (defvar default-screen-alist nil "\ Alist of default values for screen creation, other than the first one. These may be set in your init file, like this: (setq default-screen-alist '((width . 80) (height . 55))) Since the first X screen is created before loading your .emacs file, you must use the X resource database for that. See also the variable `x-screen-defaults', which is like `default-screen-alist' except that it applies only to X screens (wheras `default-screen-alist' applies to all types of screens.)") (defvar initial-screen-alist nil "\ Alist of default values for the first screen. This may be set by the window-system-specific init file.") (fset 'screen-initialize #[nil " ! !Ɖlj" [window-system noninteractive make-screen initial-screen-alist delete-screen terminal-screen nil #[(parameters) "!" [error "Can't create multiple screens without a window system"] 2] screen-creation-function] 2]) (fset 'get-other-screen #[nil "  # = É# = *" [selected-screen this next-screen nil t next make-screen] 4 "\ Return some screen other than the current screen, creating one if necessary."]) (fset 'next-multiscreen-window #[nil " V#!" [select-window next-window selected-window minibuffer-depth 0 t] 5 "\ Select the next window, regardless of which screen it is on." nil]) (fset 'previous-multiscreen-window #[nil " V#!" [select-window previous-window selected-window minibuffer-depth 0 t] 5 "\ Select the previous window, regardless of which screen it is on." nil]) (byte-code "\"\"" [defalias new-screen make-screen make-obsolete] 3) (fset 'make-screen #[(&optional parameters) "\n \"!)" [nil nscreen screen-creation-function append parameters default-screen-alist] 5 "\ Create a new screen, displaying the current buffer. Optional argument PARAMETERS is an alist of parameters for the new screen. Specifically, PARAMETERS is a list of pairs, each having one of the following forms: (name . STRING) - The screen should be named STRING. (height . NUMBER) - The screen should be NUMBER text lines high. (width . NUMBER) - The screen should be NUMBER columns wide. The documentation for the function `x-create-screen' describes additional screen parameters that Emacs recognizes for X window screens." nil]) (fset 'other-screen #[(arg) " \nV #\nSp\nW #\nTp ! !)" [selected-screen screen arg 0 next-screen nil t previous-screen raise-screen select-screen] 5 "\ Select the ARG'th different visible screen, and raise it. All screens are arranged in a cyclic order. This command selects the screen ARG steps away in that order. A negative ARG moves in the opposite order." "p"]) (byte-code "!!MM" [boundp icon-name nil iconification-data iconify-emacs #[nil "!   @   !B = ! A`!  Q E !," [iconification-data error "already iconified?" screen-list screens rest selected-screen me nil screen screen-visible-p make-screen-invisible boundp map-screen-hook icon-name invocation-name " @ " system-name screen-icon-title-format deiconify-emacs iconify-screen] 5 nil nil] deiconify-emacs #[(&optional ignore) "!@A@AA@@A=@@!)Ajȇ" [iconification-data error "not iconified?" screen-icon-title-format map-screen-hook visibility t make-screen-visible nil] 3]] 2) (defvar auto-raise-screen nil "\ *If true, screens will be raised to the top when selected. Under X, most ICCCM-compliant window managers will have an option to do this for you, but this variable is provided in case you're using a broken WM.") (defvar auto-lower-screen nil "\ *If true, screens will be lowered to the bottom when no longer selected. Under X, most ICCCM-compliant window managers will have an option to do this for you, but this variable is provided in case you're using a broken WM.") (fset 'default-select-screen-hook #[nil " !" [auto-raise-screen raise-screen selected-screen] 2 "\ Implements the `auto-raise-screen' variable. For use as the value of `select-screen-hook'."]) (fset 'default-deselect-screen-hook #[nil " !" [auto-lower-screen lower-screen selected-screen] 2 "\ Implements the `auto-lower-screen' variable. For use as the value of `deselect-screen-hook'."]) (byte-code "\" \"" [select-screen-hook add-hook default-select-screen-hook deselect-screen-hook default-deselect-screen-hook] 3) (defvar get-screen-for-buffer-default-screen-name nil "\ The default screen to select; see doc of `get-screen-for-buffer'.") (fset 'get-screen-name-for-buffer #[(buffer) "q )N )" [buffer major-mode mode screen-name get-screen-for-buffer-default-screen-name] 3]) (fset 'get-screen-for-buffer-noselect #[(buffer &optional not-this-window-p on-screen) "\n =! N N \n    \"  \"B !  @  ! \" \n   B  A S\n\n = GW B\"B!!!\"* @.\"#! !=!))" [nil name on-screen selected-window minibuffer-window get-screen-name-for-buffer buffer instance-limit screen-defaults screen-list already-visible screen matching-screens screens defaults limit sort #[(s1 s2) " !‡ ! ! !? ! !" [screen-totally-visible-p s2 nil screen-visible-p s1] 2] selected-screen delq symbol-name screen-name get-buffer-window 0 screen-creation-function append default-screen-alist sc screen-root-window w window-buffer set-window-buffer t not-this-window-p window-screen] 7 "\ Return a screen in which to display BUFFER. This is a subroutine of `get-screen-for-buffer' (which see.)"]) (fset 'get-screen-for-buffer #[(buffer &optional not-this-window-p on-screen) " \n # ?? !  ! *" [visible-screen-list get-screen-for-buffer-noselect buffer not-this-window-p on-screen screen old-screens select-screen make-screen-visible] 5 "\ Select and return a screen in which to display BUFFER. Normally, the buffer will simply be displayed in the current screen. But if the symbol naming the major-mode of the buffer has a 'screen-name property (which should be a symbol), then the buffer will be displayed in a screen of that name. If there is no screen of that name, then one is created. If the major-mode doesn't have a 'screen-name property, then the screen named by `get-screen-for-buffer-default-screen-name' will be used. If that is nil (the default) then the currently selected screen will used. If the screen-name symbol has an 'instance-limit property (an integer) then each time a buffer of the mode in question is displayed, a new screen with that name will be created, until there are `instance-limit' of them. If instance-limit is 0, then a new screen will be created each time. If a buffer is already displayed in a screen, then `instance-limit' is ignored, and that screen is used. If the screen-name symbol has a 'screen-defaults property, then that is prepended to the `default-screen-alist' when creating a screen for the first time. This function may be used as the value of `pre-display-buffer-function', to cause the display-buffer function and its callers to exhibit the above behavior."]) (fset 'show-temp-buffer-in-current-screen #[(buffer) " ! !=!  \" \"*" [nil pre-display-buffer-function display-buffer buffer window selected-screen window-screen error "display-buffer switched screens on its own!!" minibuffer-scroll-window set-window-start 1 set-window-point] 3 "\ For use as the value of temp-buffer-show-function: always displays the buffer in the current screen, regardless of the behavior that would otherwise be introduced by the `pre-display-buffer-function', which is normally set to `get-screen-for-buffer' (which see.)"]) (byte-code "!" [get-screen-for-buffer pre-display-buffer-function show-temp-buffer-in-current-screen temp-buffer-show-function provide screen] 2)