;ELC ;;; Compiled by rms@psilocin.ai.mit.edu on Wed Jul 8 20:22:54 1998 ;;; from file /gd/gnu/emacs/lisp/term/x-win.el ;;; in Emacs version 20.2.97.2 ;;; with bytecomp version 2.47 ;;; 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 "`x-win.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\303=\204\f\304\305\306 \"\210\307\310!\210\307\311!\210\307\312!\210\307\313!\210\307\314!\210\307\315!\210\316\317!\203.\307\320!\210\321 B\322\302!\204:\323\302 B\323\207" [window-system current-load-list x-command-line-resources x error "%s: Loading x-win.el but not compiled for X" invocation-name require frame mouse scroll-bar faces select menu-bar fboundp new-fontset fontset x-invocation-args boundp nil] 3) (defalias 'x-handle-switch #[(switch) "\306 \"\211\205.\307\n8\310\n8 \203\f B B\211\202-\f @B B A\211 *)\207" [switch command-line-x-option-alist aelt value param default-frame-alist assoc 3 4 x-invocation-args] 4]) (defalias 'x-handle-numeric-switch #[(switch) "\306 \"\211\205\307\n8\211\310\f@!B B\fA\211))\207" [switch command-line-x-option-alist aelt param x-invocation-args default-frame-alist assoc 3 string-to-int] 4]) (defalias 'x-handle-iconic #[(switch) "\301B\211\207" [initial-frame-alist (visibility . icon)] 2]) (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-switch #[(switch) ":\204\f\304\305\306 #\210@A\307\nB B\211\207" [x-invocation-args switch x-resource-name initial-frame-alist error "%s: missing argument to `%s' option" invocation-name name] 4]) #@51 The X display name specifying server and X frame. (defvar x-display-name nil (#$ . 2296)) (defalias 'x-handle-display #[(switch) "@A\302\303 \"\207" [x-invocation-args x-display-name setenv "DISPLAY"] 3]) #@411 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 function returns ARGS minus the arguments that have been processed. (defalias 'x-handle-args #[(args) "\306 \203\230 @\307\232\204\230 @\211\306\306\306\306 A\310\311\n\"\2035\n\312\225\306O\n\312\211\225SO\310\313\n\"\203`\314\n\"\211\315=\204`\f;\203`\316\f\"\211\204]\317\320\n\"\210\f)\316\n\"\211\203q\3218\203\217 \203\207 B\n!\210)\202\223\n!\210\202\223 B.\202\237 \244\207" [args x-invocation-args this-switch orig-this-switch completion argval nil "--" string-match "^--[^=]*=" 0 "^--" try-completion t assoc error "Option `%s' is ambiguous" 2 aelt handler command-line-x-option-alist elt] 4 (#$ . 2512)]) (byte-code "\306\300 B\307\302 B\310\303 B\311\304 B\312\305 B\313\f\314 B\315\316 B\317\320 B\321\322 B\323\324 B\325\326 B\327\330 B\331\332 B\333\334 B\335\336 B\337 \340 B\341\"\342 B\343$\344 B\345&\346 B\347(\350 B\351*\352 B\353,\354 B\355.\356 B\3570\360 B\3612\362 B\3634\364 B\3656\366 B\3678\370 B\371:\372 B\373<\374 B\375>\376 B\377@\201@ B\201nA\201A B\201oB\201B B\201pC\201C B\201qD\201D B\201rE\201E B\201sF\201F B\201tG\201G B\201uH\201H B\201vI\201I B\201wJ\201J B\201xK\201K B\201yL\201L B\201zM\201M B\201{N\201N B\201|O\201O B\201}P\201P B\201~Q\201Q B\201R\201R B\201\200S\201S B\201\201T\201T B\201\202U\201U B\201\203V\201V B\201\204W\201W B\201\205X\201X B\201\206Y\201Y B\201\207Z\201Z B\201\210[\201[ B\201\211\\\201\\ B\201\212]\201] B\201\213^\201^ B\201\214_\201_ B\201\215`\201` B\201\216a\201a B\201\217b\201b B\201\220c\201c B\201\221d\201d B\201\222e\201e B\201\223f\201f B\201\224g\201g B\201\225h\201h B\201\226i\201i B\201\227j\201j B\201\230k\201k B\201\231l\201l B\201\232m\201m B\306\207" [x-pointer-X-cursor current-load-list x-pointer-arrow x-pointer-based-arrow-down x-pointer-based-arrow-up x-pointer-boat 0 2 4 6 8 10 x-pointer-bogosity 12 x-pointer-bottom-left-corner 14 x-pointer-bottom-right-corner 16 x-pointer-bottom-side 18 x-pointer-bottom-tee 20 x-pointer-box-spiral 22 x-pointer-center-ptr 24 x-pointer-circle 26 x-pointer-clock 28 x-pointer-coffee-mug 30 x-pointer-cross 32 x-pointer-cross-reverse 34 x-pointer-crosshair 36 x-pointer-diamond-cross 38 x-pointer-dot 40 x-pointer-dotbox 42 x-pointer-double-arrow 44 x-pointer-draft-large 46 x-pointer-draft-small 48 x-pointer-draped-box 50 x-pointer-exchange 52 x-pointer-fleur 54 x-pointer-gobbler 56 x-pointer-gumby 58 x-pointer-hand1 60 x-pointer-hand2 62 x-pointer-heart x-pointer-icon x-pointer-iron-cross x-pointer-left-ptr x-pointer-left-side x-pointer-left-tee x-pointer-leftbutton x-pointer-ll-angle x-pointer-lr-angle x-pointer-man x-pointer-middlebutton x-pointer-mouse x-pointer-pencil x-pointer-pirate x-pointer-plus x-pointer-question-arrow x-pointer-right-ptr x-pointer-right-side x-pointer-right-tee x-pointer-rightbutton x-pointer-rtl-logo x-pointer-sailboat x-pointer-sb-down-arrow x-pointer-sb-h-double-arrow x-pointer-sb-left-arrow x-pointer-sb-right-arrow x-pointer-sb-up-arrow x-pointer-sb-v-double-arrow x-pointer-shuttle x-pointer-sizing x-pointer-spider x-pointer-spraycan x-pointer-star x-pointer-target x-pointer-tcross x-pointer-top-left-arrow x-pointer-top-left-corner x-pointer-top-right-corner x-pointer-top-side x-pointer-top-tee x-pointer-trek x-pointer-ul-angle x-pointer-umbrella x-pointer-ur-angle x-pointer-watch x-pointer-xterm 64 66 68 70 72 74 76 78 80 82 84 86 88 90 92 94 96 98 100 102 104 106 108 110 112 114 116 118 120 122 124 126 128 130 132 134 136 138 140 142 144 146 148 150 152] 2) #@47 The list of X colors from the `rgb.txt' 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") (#$ . 6623)) #@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\305  \306\211\f\203&\f@\fA\307 \310#\203 \nB\202 \n+\207" [frame x-colors defined-colors this-color all-colors selected-frame nil face-color-supported-p t] 4 (#$ . 8361)]) #@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 (#$ . 8778) nil]) (byte-code "\302\303\304#\210\305 \306\307#\210\305 \310\311#\210\305 \312\313#\210\305 \314\315#\210\305 \316\317#\210\305 \320\321#\210\305 \322\323#\210\305 \324\325#\210\305 \326\327#\210\305 \330\331#\210\305 \332\333#\210\305 \334\335#\210\305 \336\337#\210\305 \340\341#\210\305 \342\343#\210\344\345\346\347#\210\344\350\346\347#\210\344\351\346\352#\210\344\353\346\354#\210\344\355\346\356#\210\344\357\346\360#\210\344\361\346\362#\207" [global-map function-key-map substitute-key-definition suspend-emacs iconify-or-deiconify-frame define-key [backspace] [127] [delete] [127] [tab] [9] [linefeed] [10] [clear] [12] [return] [13] [escape] [27] [M-backspace] [-134217601] [M-delete] [-134217601] [M-tab] [-134217719] [M-linefeed] [-134217718] [M-clear] [-134217716] [M-return] [-134217715] [M-escape] [-134217701] [iso-lefttab] [backtab] put backspace ascii-character 127 delete tab 9 linefeed 10 clear 12 return 13 escape 27] 4) #@161 Return the appropriate value of system-key-alist for VENDOR. VENDOR is a string containing the name of the X Server's vendor, as returned by (x-server-vendor). (defalias 'vendor-specific-keysyms #[(vendor) "\301\230\203\302\207\303\230\204\304\230\203\305\207\306\230\204\"\307\230\203$\310\207\311\207" [vendor "Apollo Computer Inc." ((65280 . linedel) (65281 . chardel) (65282 . copy) (65283 . cut) (65284 . paste) (65285 . move) (65286 . grow) (65287 . cmd) (65288 . shell) (65289 . leftbar) (65290 . rightbar) (65291 . leftbox) (65292 . rightbox) (65293 . upbox) (65294 . downbox) (65295 . pop) (65296 . read) (65297 . edit) (65298 . save) (65299 . exit) (65300 . repeat)) "Hewlett-Packard Incorporated" "Hewlett-Packard Company" ((168 . mute-acute) (169 . mute-grave) (170 . mute-asciicircum) (171 . mute-diaeresis) (172 . mute-asciitilde) (175 . lira) (190 . guilder) (252 . block) (256 . longminus) (65388 . reset) (65389 . system) (65390 . user) (65391 . clearline) (65392 . insertline) (65393 . deleteline) (65394 . insertchar) (65395 . deletechar) (65396 . backtab) (65397 . kp-backtab)) "X11/NeWS - Sun Microsystems Inc." "X Consortium" ((392976 . f36) (392977 . f37) (393056 . req) (393072 . props) (393073 . front) (393074 . copy) (393075 . open) (393076 . paste) (393077 . cut)) ((65280 . remove))] 2 (#$ . 9969)]) (byte-code "\302\300!\204\303\300 B\303\207" [x-last-selected-text current-load-list boundp nil] 2) #@52 Max number of characters to put in the cut buffer. (defvar x-cut-buffer-max 20000 (#$ . 11421)) #@101 Non-nil means cutting and pasting uses the clipboard. This is in addition to the primary selection. (defvar x-select-enable-clipboard nil (#$ . 11524)) (defalias 'x-select-text #[(text &optional push) "G W\203\305\n\"\210\202\305\306\n\"\210\307\310\"\210 \203\"\307\311\"\210\211\207" [text x-cut-buffer-max push x-select-enable-clipboard x-last-selected-text x-set-cut-buffer "" x-set-selection PRIMARY CLIPBOARD] 3]) (defalias 'x-cut-buffer-or-selection-value #[nil "\303\304\305\306\217\210\204\304\307\310\217\210\311\230\203\303 \2036\204%\304\312\313\217\210\204.\304\314\315\217\210\311\230\2036\303\204>\316\317!\311\230\203F\303\204N\303\202g\n=\203X\303\202g\n\230\203d\303\202g\211)\207" [text x-select-enable-clipboard x-last-selected-text nil c (byte-code "\301\302\303\"\301\207" [text x-get-selection PRIMARY COMPOUND_TEXT] 3) ((error)) (byte-code "\301\302\303\"\301\207" [text x-get-selection PRIMARY STRING] 3) ((error)) "" (byte-code "\301\302\303\"\301\207" [text x-get-selection CLIPBOARD COMPOUND_TEXT] 3) ((error)) (byte-code "\301\302\303\"\301\207" [text x-get-selection CLIPBOARD STRING] 3) ((error)) x-get-cut-buffer 0] 3]) (byte-code "\306! ;\204 \307\310 \311\312 \"\211\203 \n\313I\210\202)\314\315!\2037\316 \2060\317\320!\211\f\321#\210\202D\316 \206A\317\320!\211\f\"\210\322\323 \324\245\325Z@^@\314\326!\203z\327A\321\"\210\330 \210\331B\236A\206t\331C\236A\206t\332\333\334\"\307\211DE\211\203y\335!\204y\336!\211D\203y\337!\211E\203yEFH\340\230\203\262\326\341E\307\"\"\210\202y\342\343G\"\344\307\211\211\211HIJKLML\203\370L@K\332\345K!\346P\347\"\211J\203\357KJB\350KM\"BMLA\211L\204\315EN\307I\210EO\307I\210EF\340I\210EP\351I\210EQHERH\307ST\211U\2031\311\352U\"\203B\337D!SEQSQHI\210T\203O\311\352T\"\203eS\204Z\337D!SERSRHI\210+\353E!I\327I\354QM\"\210.+\311\355\356 \"\203\205\357 \210\332\360\361\"V\307WV\203\335\362V!W\363W\236\204\247\364W\236\203\257\365\366WBBW\367BW\"B\370W\236\203\312\370\211W\236ABCBC\371W\236\203\335\371\211W\236ABCBC*\321X\332\372\373\"\211Y\203\371\311\374Y\"\203\371\375CBC*\332\376\377\"Z\201\\[Z\203\201]Z![)\307\207" [command-line-args x-resource-name i x-display-name x-command-line-resources frame-creation-function x-handle-args nil invocation-name string-match "[.*]" 45 fboundp x-close-connection x-open-connection getenv "DISPLAY" t x-create-frame-with-faces x-server-max-request-size 2 100 new-fontset create-fontset-from-fontset-spec create-fontset-from-x-resource font x-get-resource "font" "Font" query-fontset x-resolve-font-name x-decompose-font-name "fontset" x-complement-fontset-spec mapcar car (bold italic bold-italic) symbol-name ".attributeFont" "Face.AttributeFont" delq "startup" "[*?]*" x-compose-font-name ", ascii:" "Sun Microsystems,? Inc\\." x-server-vendor menu-bar-enable-clipboard "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" x-cut-buffer-max standard-fontset-spec initial-frame-alist default-frame-alist resolved-name xlfd-fields xlfd-regexp-registry-subnum x-style-funcs-alist fontset-spec fontset face-font face faces styles xlfd-regexp-foundry-subnum xlfd-regexp-family-subnum xlfd-regexp-encoding-subnum xlfd-regexp-weight-subnum xlfd-regexp-slant-subnum xlfd-temp slant weight res-geometry parsed case-fold-search rv res-selection-timeout x-selection-timeout 20000 string-to-number] 7) (defalias 'x-win-suspend-error #[nil "\300\301!\207" [error "Suspending an emacs running under X makes no sense"] 2]) (byte-code "\303\304\305\"\210\306\307\310\311\312\313\"\207" [interprogram-cut-function interprogram-paste-function split-window-keep-point add-hook suspend-hook x-win-suspend-error x-select-text x-cut-buffer-or-selection-value t set-default mode-line-frame-identification " "] 3)