;ELC ;;; Compiled by rms@psilocin.ai.mit.edu on Tue Jun 23 11:58:12 1998 ;;; from file /gd/gnu/emacs/lisp/term/w32-win.el ;;; in Emacs version 20.2.95.4 ;;; with bytecomp version 2.46 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`w32-win.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301=\204\f\302\303\304 \"\210\305\306!\210\305\307!\210\305\310!\210\305\311!\210\305\312!\210\305\313!\207" [window-system w32 error "%s: Loading w32-win.el but not compiled for w32" invocation-name require frame mouse scroll-bar faces select menu-bar] 3) #@67 Handle W32 scroll bar events to do normal Window style scrolling. (defalias 'w32-handle-scroll-bar-event #[(event) "\306 \307\216 \211A@)\211@\310\n8\311\n8\212\312 !\210 \313=\203-\314 !b\210\315\316!\202] \317=\2038\315 \202] \320=\203D\321 !\202] \322=\203O\323 \202] \324=\205]\314 !b\210\323\316!.\207" [old-window event position window portion-whole bar-part selected-window ((select-window old-window)) 2 4 select-window up window-start scroll-down 1 above-handle handle scroll-bar-maybe-set-window-start below-handle scroll-up down] 3 (#$ . 879) "e"]) (global-set-key [vertical-scroll-bar mouse-1] 'w32-handle-scroll-bar-event) #@58 *Number of lines to scroll per click of the mouse wheel. (defvar mouse-wheel-scroll-amount 4 (#$ . -1537)) #@59 Scroll the current buffer by `mouse-wheel-scroll-amount'. (defalias 'mouse-wheel-scroll-line #[(event) "\300\301\302\217\207" [nil (byte-code "AA@\302W\203 \303 !\207\304 !\207" [event mouse-wheel-scroll-amount 0 scroll-up scroll-down] 2) ((error))] 3 (#$ . 1650) "e"]) (byte-code "\301C\302\207" [scroll-command-groups (mouse-wheel-scroll-line) nil] 1) #@59 Scroll the current buffer by `mouse-wheel-scroll-amount'. (defalias 'mouse-wheel-scroll-screen #[(event) "\300\301\302\217\207" [nil (byte-code "AA@\301W\203\f\302 \207\303 \207" [event 0 scroll-up scroll-down] 2) ((error))] 3 (#$ . 2013) "e"]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [global-set-key [mouse-wheel] mouse-wheel-scroll-line [C-mouse-wheel] mouse-wheel-scroll-screen] 3) #@49 Print the drag-n-drop event in a readable form. (defalias 'w32-drag-n-drop-debug #[(event) "\301!\207" [event princ] 2 (#$ . 2416) "e"]) #@99 Edit the files listed in the drag-n-drop event. Switch to a buffer editing the last file dropped. (defalias 'w32-drag-n-drop #[(event) "\301\302AA@\"\210\303 \207" [event mapcar find-file raise-frame] 3 (#$ . 2560) "e"]) #@167 Edit the files listed in the drag-n-drop event, in other frames. May create new frames, or reuse existing ones. The frame editing the last file dropped is selected. (defalias 'w32-drag-n-drop-other-frame #[(event) "\301\302AA@\"\207" [event mapcar find-file-other-frame] 3 (#$ . 2789) "e"]) (byte-code "\305\306\307\"\210\305\310\311\"\210\312B\313\301!\204\314\301B\315\302B\316\303B\317\304B\314\207" [current-load-list x-command-line-resources x-option-alist x-long-option-alist x-switch-definitions global-set-key [drag-n-drop] w32-drag-n-drop [C-drag-n-drop] w32-drag-n-drop-other-frame x-invocation-args boundp 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)) (("--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")) (("-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))] 3) (defalias 'x-handle-switch #[(switch) "\305 \"\211\205*\306\n8\203\nA@\306\n8B B\211\202*\nA@\f@B B\fA\211)\207" [switch x-switch-definitions aelt default-frame-alist x-invocation-args assoc 2] 4]) (defalias 'x-handle-iconic #[(switch) "\301B\211\207" [initial-frame-alist (visibility . icon)] 2]) (defalias 'x-handle-numeric-switch #[(switch) "\305 \"\211\205\nA@\306 @!B\fB A\211)\207" [switch x-switch-definitions aelt x-invocation-args default-frame-alist assoc string-to-int] 4]) (defalias 'x-handle-xrm-switch #[(switch) ":\204\f\303\304\305 #\210@A\211\207" [x-invocation-args switch x-command-line-resources error "%s: missing argument to `%s' option" invocation-name] 4]) (defalias 'x-handle-geometry #[(switch) "\303@!\304\n\305 \236\204\306 \236\205\307\310 \236\204 \311 \236\205!\312 $A\211)\207" [x-invocation-args geo initial-frame-alist x-parse-geometry append left top ((user-position . t)) height width ((user-size . t))] 5]) (defalias 'x-handle-name-rn-switch #[(switch) ":\204\f\304\305\306 #\210@A \307\230\205\310\nB B\211\207" [x-invocation-args switch x-resource-name initial-frame-alist error "%s: missing argument to `%s' option" invocation-name "-name" name] 4]) #@47 The display name specifying server and frame. (defvar x-display-name nil (#$ . 6359)) (defalias 'x-handle-display #[(switch) "@A\211\207" [x-invocation-args x-display-name] 2]) (byte-code "\302\300!\204\303\300 B\303\207" [x-invocation-args current-load-list boundp nil] 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) "\306\307\"\210\310 \203\225 @\211\310\310\310 A\311\312\n\"\2030\n\313\225\310O\n\313\211\225SO\314\n\"\211\315=\203F\316\n\"A\202g\f;\203c\316\f\"\211\204[\317\320\n\"\210A)\202g\310 \316\n\"\211\203\215 \203\204 BA\n!\210)\202\221A\n!\210\202\221\nB-\202 \237\211\207" [args x-invocation-args this-switch orig-this-switch completion argval message "%s" nil string-match "^--[^=]*=" 0 try-completion t assoc error "Option `%s' is ambiguous" aelt x-long-option-alist elt x-option-alist] 4 (#$ . 6648)]) #@53 The full list of X colors from the `rgb.text' file. (defvar x-colors '("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") (#$ . 7651)) #@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) "\204\306 \307\310 \"\211\206 \311\311\312\313!\210\f\2036\f@\fA\314 \315#\203 B\202,\207" [frame w32-color-map color-map-colors x-colors all-colors this-color selected-frame mapcar #[(clr) "@\207" [clr] 1] nil message "Defining colors..." face-color-supported-p t defined-colors] 5 (#$ . 9395)]) (global-set-key [f10] #[nil "\300\301!\207" [w32-send-sys-command 61696] 2 nil nil]) #@69 Iconify the selected frame, or deiconify if it's currently an icon. (defalias 'iconify-or-deiconify-frame #[nil "\300\301 \236A\302=\203 \303 \207\304 \207" [visibility frame-parameters t iconify-frame make-frame-visible] 2 (#$ . 10027) nil]) (byte-code "\303\304\305#\210\306\301!\204\307\301\nB\307\207" [global-map x-last-selected-text current-load-list substitute-key-definition suspend-emacs iconify-or-deiconify-frame boundp nil] 4) #@52 Max number of characters to put in the cut buffer. (defvar x-cut-buffer-max 20000 (#$ . 10478)) #@101 Non-nil means cutting and pasting uses the clipboard. This is in addition to the primary selection. (defvar x-select-enable-clipboard t (#$ . 10581)) (defalias 'x-select-text #[(text &optional push) "\203\303 !\210 \211\207" [x-select-enable-clipboard text x-last-selected-text w32-set-clipboard-data] 2]) (defalias 'x-get-selection-value #[nil "\2055\303\304\305\306\217\210 \307\230\203\303 \204\303\2024 \n=\203%\303\2024 \n\230\2031 \303\2024 \211)\207" [x-select-enable-clipboard text x-last-selected-text nil c (byte-code "\301 \301\207" [text w32-get-clipboard-data] 1) ((error (message "w32-get-clipboard-data:%s" c))) ""] 3]) (byte-code "\306! ;\204 \307\310 \311\312 \"\211\203 \n\313I\210\202)\314\315!\203/\316\317 \320#\210\2024\316\317 \"\210\321\322 \323\245\324Z ^\325 \210\326\327\330\")\307*)\203\232\331)!*\332*\236\204d\333*\236\203l\334\335*BB*\336+*\"+\337*\236\203\207\337\211*\236AB,B,\340*\236\203\232\340\211*\236AB,B,*\320-\326\341\342\"\211.\203\266\311\343.\"\203\266\344,B,*\326\345\346\"/\3470/\203\313\350/!0)\307\207" [command-line-args x-resource-name i x-command-line-resources frame-creation-function x-cut-buffer-max x-handle-args nil invocation-name string-match "[.*]" 45 fboundp x-close-connection x-open-connection "" t x-create-frame-with-faces x-server-max-request-size 2 100 menu-bar-enable-clipboard x-get-resource "geometry" "Geometry" x-parse-geometry top left (user-position . t) (user-size . t) append height width "reverseVideo" "ReverseVideo" "^\\(true\\|yes\\|on\\)$" (reverse . t) "selectionTimeout" "SelectionTimeout" 20000 string-to-number res-geometry parsed initial-frame-alist default-frame-alist case-fold-search rv res-selection-timeout x-selection-timeout] 5) (defalias 'x-win-suspend-error #[nil "\300\301!\207" [error "Suspending an emacs running under W32 makes no sense"] 2]) (byte-code "\303\304\305\"\210\306\307\310\311\312\313\"\210\314\315!\207" [interprogram-cut-function interprogram-paste-function split-window-keep-point add-hook suspend-hook x-win-suspend-error x-select-text x-get-selection-value t set-default mode-line-frame-identification " " set-message-beep ok] 3) (defalias 'internal-face-interactive #[(what &optional bool) "\306\307P!\310\311Q\312\n\313P!\314 !\205$ \315 \"\206$ \304\315 \"\306\316 !\317Q!\320\314!\203? \202}\321=\203]\322\n\323\316 !\324R\325\326 \"\320\211\211\211\f&\202}\203q\327\330\316 !\331\332\260!\202}\333\n\323\316 !\324R\320\211\f$ \334\232?\205\212.D\207" [what fn prompt face default window-system intern "face-" "Set " " of face" read-face-name ": " fboundp selected-frame symbol-name "-select-" nil color completing-read " " " to: " mapcar #[(color) "\211B\207" [color] 2] y-or-n-p "Should face " " be " "? " read-string "" fn-win value bool x-colors] 8]) (defalias 'mouse-set-font #[(&rest fonts) "\300\301 !\207" [set-default-font w32-select-font] 2 nil nil])