;ELC ;;; compiled by kwzh@churchy.gnu.ai.mit.edu on Thu May 23 14:26:04 1996 ;;; from file /gd/gnu/emacs/19.0/lisp/term/win32-win.el ;;; emacs version 19.31.1. ;;; bytecomp version FSF 2.10 ;;; 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.29"))) (error "`win32-win.el' was compiled for Emacs 19.29 or later")) (byte-code "=\f \"!!!!!!" [window-system win32 error "%s: Loading win32-win.el but not compiled for win32" invocation-name require frame mouse scroll-bar faces select menu-bar] 3) #@69 Handle Win32 scroll bar events to do normal Window style scrolling. (defalias 'win32-handle-scroll-bar-event #[(event) " Ž A@)@\f8\f8 ! =+!Z =7 Z =D !Z =P Z =Z!." [selected-window old-window ((select-window old-window)) event position window 2 portion-whole 4 bar-part select-window up scroll-down 1 above-handle handle scroll-bar-maybe-set-window-start below-handle scroll-up down] 3 (#$ . 689) "e"]) (byte-code "\"\fB!\fB \fB \fB \fBLJ" [global-set-key [vertical-scroll-bar mouse-1] win32-handle-scroll-bar-event x-invocation-args current-load-list boundp x-command-line-resources nil (("-bw" . x-handle-numeric-switch) ("-d" . x-handle-display) ("-display" . x-handle-display) ("-name" . x-handle-name-rn-switch) ("-rn" . x-handle-name-rn-switch) ("-T" . x-handle-switch) ("-r" . x-handle-switch) ("-rv" . x-handle-switch) ("-reverse" . x-handle-switch) ("-fn" . x-handle-switch) ("-font" . x-handle-switch) ("-ib" . x-handle-numeric-switch) ("-g" . x-handle-geometry) ("-geometry" . x-handle-geometry) ("-fg" . x-handle-switch) ("-foreground" . x-handle-switch) ("-bg" . x-handle-switch) ("-background" . x-handle-switch) ("-ms" . x-handle-switch) ("-itype" . x-handle-switch) ("-i" . x-handle-switch) ("-iconic" . x-handle-iconic) ("-xrm" . x-handle-xrm-switch) ("-cr" . x-handle-switch) ("-vb" . x-handle-switch) ("-hb" . x-handle-switch) ("-bd" . x-handle-switch)) x-option-alist (("--border-width" . "-bw") ("--display" . "-d") ("--name" . "-name") ("--title" . "-T") ("--reverse-video" . "-reverse") ("--font" . "-font") ("--internal-border" . "-ib") ("--geometry" . "-geometry") ("--foreground-color" . "-fg") ("--background-color" . "-bg") ("--mouse-color" . "-ms") ("--icon-type" . "-itype") ("--iconic" . "-iconic") ("--xrm" . "-xrm") ("--cursor-color" . "-cr") ("--vertical-scroll-bars" . "-vb") ("--border-color" . "-bd")) x-long-option-alist (("-name" name) ("-T" name) ("-r" reverse t) ("-rv" reverse t) ("-reverse" reverse t) ("-fn" font) ("-font" font) ("-ib" internal-border-width) ("-fg" foreground-color) ("-foreground" foreground-color) ("-bg" background-color) ("-background" background-color) ("-ms" mouse-color) ("-cr" cursor-color) ("-itype" icon-type t) ("-i" icon-type t) ("-vb" vertical-scroll-bars t) ("-hb" horizontal-scroll-bars t) ("-bd" border-color) ("-bw" border-width)) x-switch-definitions] 3) (defalias 'x-handle-switch #[(switch) " \n\"- 8 A@ 8B B- A@@B BA)" [assoc switch x-switch-definitions aelt 2 default-frame-alist x-invocation-args] 4]) (defalias 'x-handle-iconic #[(switch) " B" [(visibility . icon) initial-frame-alist] 2]) (defalias 'x-handle-numeric-switch #[(switch) " \n\" A@ @!BB A)" [assoc switch x-switch-definitions aelt string-to-int x-invocation-args default-frame-alist] 4]) (defalias 'x-handle-xrm-switch #[(switch) ":\f \f#@A" [x-invocation-args error "%s: missing argument to `%s' option" invocation-name switch x-command-line-resources] 4]) (defalias 'x-handle-geometry #[(switch) " @!\f\n\n\n \n!\n$ A)" [x-parse-geometry x-invocation-args geo append initial-frame-alist left top ((user-position . t)) height width ((user-size . t))] 5]) (defalias 'x-handle-name-rn-switch #[(switch) ":\f \f#@A\fƘ! BB" [x-invocation-args error "%s: missing argument to `%s' option" invocation-name switch x-resource-name "-name" name initial-frame-alist] 4]) #@47 The display name specifying server and frame. (defvar x-display-name nil (#$ . 4188)) (defalias 'x-handle-display #[(switch) "@A" [x-invocation-args x-display-name] 2]) (byte-code "! B‡" [boundp x-invocation-args nil current-load-list] 2) #@406 Process the X-related command line options in ARGS. This is done before the user's startup file is loaded. They are copied to x-invocation args from which the X-related things are extracted, first the switch (e.g., "-fg") in the following code, and possible values (e.g., "black") in the option handler code (e.g., x-handle-switch). This returns ARGS with the arguments that have been processed removed. (defalias 'x-handle-args #[(args) "\n\"\n @ A \"4 ̕O ̉SO \"=K \"Ap;j\"b \"A)p \"  B A !) A ! \nB- \n" [message "%s" args x-invocation-args nil this-switch orig-this-switch completion argval aelt string-match "^--[^=]*=" 0 try-completion x-long-option-alist t assoc elt error "Option `%s' is ambiguous" x-option-alist] 4 (#$ . 4450)]) #@53 The full list of X colors from the `rgb.text' file. (defvar x-colors (quote ("aquamarine" "Aquamarine" "medium aquamarine" "MediumAquamarine" "black" "Black" "blue" "Blue" "cadet blue" "CadetBlue" "cornflower blue" "CornflowerBlue" "dark slate blue" "DarkSlateBlue" "light blue" "LightBlue" "light steel blue" "LightSteelBlue" "medium blue" "MediumBlue" "medium slate blue" "MediumSlateBlue" "midnight blue" "MidnightBlue" "navy blue" "NavyBlue" "navy" "Navy" "sky blue" "SkyBlue" "slate blue" "SlateBlue" "steel blue" "SteelBlue" "coral" "Coral" "cyan" "Cyan" "firebrick" "Firebrick" "brown" "Brown" "gold" "Gold" "goldenrod" "Goldenrod" "green" "Green" "dark green" "DarkGreen" "dark olive green" "DarkOliveGreen" "forest green" "ForestGreen" "lime green" "LimeGreen" "medium sea green" "MediumSeaGreen" "medium spring green" "MediumSpringGreen" "pale green" "PaleGreen" "sea green" "SeaGreen" "spring green" "SpringGreen" "yellow green" "YellowGreen" "dark slate grey" "DarkSlateGrey" "dark slate gray" "DarkSlateGray" "dim grey" "DimGrey" "dim gray" "DimGray" "light grey" "LightGrey" "light gray" "LightGray" "gray" "grey" "Gray" "Grey" "khaki" "Khaki" "magenta" "Magenta" "maroon" "Maroon" "orange" "Orange" "orchid" "Orchid" "dark orchid" "DarkOrchid" "medium orchid" "MediumOrchid" "pink" "Pink" "plum" "Plum" "red" "Red" "indian red" "IndianRed" "medium violet red" "MediumVioletRed" "orange red" "OrangeRed" "violet red" "VioletRed" "salmon" "Salmon" "sienna" "Sienna" "tan" "Tan" "thistle" "Thistle" "turquoise" "Turquoise" "dark turquoise" "DarkTurquoise" "medium turquoise" "MediumTurquoise" "violet" "Violet" "blue violet" "BlueViolet" "wheat" "Wheat" "white" "White" "yellow" "Yellow" "green yellow" "GreenYellow")) (#$ . 5306)) #@171 Return a list of colors supported for a particular frame. The argument FRAME specifies which frame to try. The value may be different for frames on different X displays. (defalias 'x-defined-colors #[(&optional frame) " \nÉ+@A # \fB\f+" [frame selected-frame x-colors nil defined-colors this-color all-colors face-color-supported-p t] 4 (#$ . 7057)]) #@69 Iconify the selected frame, or deiconify if it's currently an icon. (defalias 'iconify-or-deiconify-frame #[nil " A= " [visibility frame-parameters t iconify-frame make-frame-visible] 2 (#$ . 7447) nil]) (byte-code " # # # # # # # # # # ######!i')B)" [substitute-key-definition suspend-emacs iconify-or-deiconify-frame global-map define-key function-key-map [tab] [9] [linefeed] [10] [clear] [11] [return] [13] [escape] [27] [M-tab] [-134217719] [M-linefeed] [-134217718] [M-clear] [-134217717] [M-return] [-134217715] [M-escape] [-134217701] put tab ascii-character 9 linefeed 10 clear 12 return 13 escape 27 boundp x-last-selected-text nil current-load-list] 4) #@52 Max number of characters to put in the cut buffer. (defvar x-cut-buffer-max 20000 (#$ . 8209)) #@101 Non-nil means cutting and pasting uses the clipboard. This is in addition to the primary selection. (defvar x-select-enable-clipboard t (#$ . 8311)) (defalias 'x-select-text #[(text &optional push) "\n!\n" [x-select-enable-clipboard win32-set-clipboard-data text x-last-selected-text] 2]) (defalias 'x-get-selection-value #[nil "9ŏ\nƘ\n8\n=&8\n4\n8\n)" [x-select-enable-clipboard nil text c (byte-code " " [win32-get-clipboard-data text] 1) ((error (message "win32-get-clipboard-data:%s" c))) "" x-last-selected-text] 3]) (byte-code " !\n;  \n\"\n\fI)!0 #6 \" ҥZ^ \"!iqBB!\"!AB#B#AB#B#*%\"((\"#B#*\"-/--!/)Ç" [x-handle-args command-line-args x-resource-name nil i invocation-name string-match "[.*]" 45 fboundp x-close-connection x-open-connection "" x-command-line-resources t x-create-frame-with-faces frame-creation-function x-server-max-request-size 2 100 x-cut-buffer-max menu-bar-enable-clipboard x-get-resource "geometry" "Geometry" res-geometry parsed x-parse-geometry top left (user-position . t) (user-size . t) append initial-frame-alist height default-frame-alist width case-fold-search "reverseVideo" "ReverseVideo" rv "^\\(true\\|yes\\|on\\)$" (reverse . t) "selectionTimeout" "SelectionTimeout" res-selection-timeout 20000 x-selection-timeout string-to-number] 5) (defalias 'x-win-suspend-error #[nil "!" [error "Suspending an emacs running under Win32 makes no sense"] 2]) (byte-code "\"\"!" [add-hook suspend-hook x-win-suspend-error x-select-text interprogram-cut-function x-get-selection-value interprogram-paste-function t split-window-keep-point set-default mode-line-buffer-identification ("Emacs: %12b") set-message-beep ok] 3) (defalias 'internal-face-interactive #[(what &optional bool) "\nP!\nQP! !(  \"( \"\f!\nQ!!B dW !հ!d !R\f\" ښ?r.D" [intern "face-" what fn "Set " " of face" prompt read-face-name ": " face fboundp selected-frame default symbol-name window-system "-select-" fn-win bool y-or-n-p "Should face " " be " "? " read-string " " " to: " value ""] 6]) (defalias 'mouse-set-font #[(&rest fonts) " !" [set-default-font win32-select-font] 2 nil nil])