;ELC ;;; compiled by jwz@thalidomide on Fri Apr 8 00:23:41 1994 ;;; from file /th/jwz/emacs19/lisp/vm/vm-window.el ;;; emacs version 19.10 Lucid (beta12). ;;; bytecomp version 2.23; 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 "MMMMMMM" [vm-display #[(buffer display commands configs) "p\n \n! !\n!!\n >\"\n!?\n!\n \n!!!\n >\"?\n!\n >\"*" [vm-sbe-buffer ((byte-code "p=!q" [vm-sbe-buffer buffer-name] 2)) buffer display vm-get-buffer-window vm-display-buffer-hook run-hooks switch-to-buffer vm-record-current-window-configuration nil this-command commands apply vm-set-window-configuration configs vm-display-buffer vm-undisplay-buffer-hook vm-undisplay-buffer] 3] vm-display-buffer #[(buffer) "=\n! = !!9 !! !*" [vm-mutable-windows t vm-mutable-frames pop-up-frames pop-up-windows vm-record-current-window-configuration nil vm-buffer-to-label window-buffer selected-window select-window display-buffer buffer switch-to-buffer] 3] vm-undisplay-buffer #[(buffer) "p ! ! \"+" [vm-sbe-buffer ((byte-code "p=!q" [vm-sbe-buffer buffer-name] 2)) vm-delete-windows-or-frames-on buffer vm-get-buffer-window w set-window-buffer other-buffer] 4] vm-load-window-configurations #[(file) "Ž!q Ǐ+" [nil work-buffer ((byte-code "!" [work-buffer kill-buffer] 2)) get-buffer-create "*vm-wconfig*" erase-buffer (byte-code " !p!" [insert-file-contents file read] 2) ((error)) vm-window-configurations] 3] vm-store-window-configurations #[(file) "Ž!q p\"ed %+" [nil work-buffer ((byte-code "!" [work-buffer kill-buffer] 2)) get-buffer-create "*vm-wconfig*" erase-buffer print vm-window-configurations write-region file 0] 6] vm-set-window-configuration #[(&rest tags) "" [done (byte-code "\" É \n   @Al\"!! =!\"p \n=p\n=p\n=!\"\n=!\"p\n\"\nq=\"@ = <@  A=\"  \"    A@#A@#!! !\n! \n\" ! !!." [vm-mutable-windows throw done nil " *vm-nonexistent*" " *vm-nonexistent-summary*" vm-selected-frame config edit composition message summary selected-frame nonexistent-summary nonexistent tags vm-window-configurations default vm-copy vm-find-composition-buffer t major-mode vm-summary-mode vm-mail-buffer buffer-name vm-mode vm-virtual-mode mail-mode vm-system-state editing vm-root-window-edges vm-mutable-frames vm-window-configuration vm-check-for-killed-summary vm-summary-buffer tapestry-replace-tapestry-element #[(x) "9J" [x] 1] set-tapestry 1 get-buffer vm-delete-windows-or-frames-on vm-get-buffer-window vm-replace-buffer-in-windows vm-record-current-window-configuration] 9)] 2] vm-record-current-window-configuration #[(config) "" [(let (cell) (if (and (listp vm-window-configuration) (setq cell (assq (vm-selected-frame) vm-window-configuration))) (setcdr cell (car config)) (setq vm-window-configuration (cons (cons (vm-selected-frame) (car config)) vm-window-configuration))))] 1]] 2) (fset 'vm-save-window-configuration #[(tag) "!É C! # ̉&  A  DB! \"*" [vm-window-configuration-file error "Configurable windows not enabled. Set vm-window-configuration-file to enable." nil p map tapestry vm-selected-frame tapestry-replace-tapestry-element buffer-name vm-buffer-to-label tapestry-nullify-tapestry-elements t tag vm-window-configurations vm-store-window-configurations message "%s configuration recorded"] 9 "\ Name and save the current window configuration. With this command you associate the current window setup with an action. Each time you perform this action VM will duplicate this window setup. Nearly every VM command can have a window configuration associated with it. VM also allows some category configurations, `startup', `reading-message', `composing-message', `editing-message', `marking-message' and `searching-message' for the commands that do these things. There is also a `default' configuration that VM will use if no other configuration is applicable. Command specific configurations are searched for first, then the category configurations and then the default configuration. The first configuration found is the one that is applied. The value of vm-mutable-windows must be non-nil for VM to use window configurations. If vm-mutable-frames is non-nil and Emacs is running under X windows, then VM will use all existing frames. Otherwise VM will restrict its changes to the frame in which it was started." (byte-code " \n!$!*C" [last-command this-command vm-window-configuration-file error "Configurable windows not enabled. Set vm-window-configuration-file to enable." intern completing-read "Name this window configuration: " vm-supported-window-configurations identity t] 6)]) (fset 'vm-buffer-to-label #[(buf) "q =ê =Ū =Ǫ =Ǫ =˪)" [buf major-mode vm-summary-mode summary mail-mode composition vm-mode message vm-virtual-mode vm-system-state editing edit] 2]) (fset 'vm-delete-window-configuration #[(tag) "!  @=A \" \")! \"" [vm-window-configuration-file error "Configurable windows not enabled. Set vm-window-configuration-file to enable." nil p tag vm-window-configurations delq "No window configuration set for %s" vm-store-window-configurations message "%s configuration deleted"] 4 "\ Delete the configuration saved for a particular action. This action will no longer have an associated window configuration. The action will be read from the minibuffer." (byte-code " \n!\n\"$!*C" [last-command this-command vm-window-configuration-file error "Configurable windows not enabled. Set vm-window-configuration-file to enable." intern completing-read "Delete window configuration: " mapcar #[(x) " @!C" [symbol-name x] 2] vm-window-configurations identity t] 6)]) (fset 'vm-apply-window-configuration #[(tag) " !" [vm-set-window-configuration tag] 2 "\ Change the current window configuration to be one associated with a particular action. The action will be read from the minibuffer." (byte-code " \"$!*C" [last-command this-command intern completing-read "Apply window configuration: " mapcar #[(x) " @!C" [symbol-name x] 2] vm-window-configurations identity t] 6)]) (byte-code "MMMMMMM!Ъ!ѪKM!KMKMKMKM!KMKMKM!KKM" [vm-window-help #[nil "!" [message "WS = save configuration, WD = delete configuration, WW = apply configuration"] 2 nil nil] vm-window-loop #[(action obj-1 &optional obj-2) " \"É  \n  !    \"= ! \n=\n = != = !=\"\nՏ=\n!\n   \"=? !-" [next-window selected-window nomini nil vm-mutable-frames t w all-frames done delete-me start obj-1 get-buffer delete-window action delete window-buffer replace set-window-buffer obj-2 (byte-code " #" [next-window w nomini all-frames] 4) ((wrong-number-of-arguments (byte-code " \"" [next-window w nomini] 3)))] 6] vm-frame-loop #[(action obj-1) "! É! !̏ =! !\"!=  !=E @!\"É," [fboundp vm-next-frame vm-selected-frame nil f done delete-me start obj-1 get-buffer vm-select-frame (byte-code " ! \n=Ç" [vm-delete-frame delete-me start nil] 2) ((error)) action delete one-window-p t window-buffer next-window vm-frame-selected-window nomini vm-error-free-call vm-delete-frame] 6] vm-delete-windows-or-frames-on #[(buffer) "= \" \"" [vm-mutable-windows t vm-window-loop delete buffer vm-mutable-frames vm-frame-loop] 3] vm-replace-buffer-in-windows #[(old new) "\n #" [vm-window-loop replace old new] 4] vm-get-buffer-window #[(buffer &optional force-all-frames) "" [nil (byte-code " \n \"" [get-buffer-window buffer vm-mutable-frames force-all-frames t] 3) ((wrong-number-of-arguments (get-buffer-window buffer)))] 3] vm-goto-new-frame #[nil "! !! !! !" [fboundp make-frame select-frame make-screen select-screen new-screen] 2] vm-selected-frame fboundp selected-frame selected-screen ignore next-frame vm-next-frame vm-select-frame select-frame vm-delete-frame delete-frame vm-frame-selected-window frame-selected-window next-screen select-screen delete-screen epoch::selected-window screen-selected-window] 3)