;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Thu Jun 8 22:14:51 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/term/x-win.el ;;; emacs version 19.28.93.6. ;;; 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.28.90"))) (error "`x-win.el' was compiled for Emacs 19.29 or later")) (byte-code "=\f \"!!!!!! B !3 B  B  B  B Ї" [window-system x error "%s: Loading x-win.el but not compiled for X" invocation-name require frame mouse scroll-bar faces select menu-bar 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]) #@51 The X display name specifying server and X frame. (defvar x-display-name nil (#$ . 3613)) (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 (#$ . 3879)]) (byte-code "\nB\nB\nB\nB\n\nB\f\nB\nB\nB\nB\nB\nB\nB\nB\nB\nB \nB\"\nB$\nB&\nB(\nB*\nB,\nB.\nB0\nB2\nB4\nB6\nB8\nB:\nB<\nB>\nB@@\nBABB\nBCDD\nBEFF\nBGHH\nBIJJ\nBKLL\nBMNN\nBOPP\nBQRR\nBSTT\nBUVV\nBWXX\nBYZZ\nB[\\\\\nB]^^\nB_``\nBabb\nBcdd\nBeff\nBghh\nBijj\nBkll\nBmnn\nBopp\nBqrr\nBstt\nBuvv\nBwxx\nByzz\nB{||\nB}~~\nB\nB\nB\nB\nB\nB\nB\nB\nB\nB\nB\nB\nB\nB\nB" [0 x-pointer-X-cursor current-load-list 2 x-pointer-arrow 4 x-pointer-based-arrow-down 6 x-pointer-based-arrow-up 8 x-pointer-boat 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 64 x-pointer-icon 66 x-pointer-iron-cross 68 x-pointer-left-ptr 70 x-pointer-left-side 72 x-pointer-left-tee 74 x-pointer-leftbutton 76 x-pointer-ll-angle 78 x-pointer-lr-angle 80 x-pointer-man 82 x-pointer-middlebutton 84 x-pointer-mouse 86 x-pointer-pencil 88 x-pointer-pirate 90 x-pointer-plus 92 x-pointer-question-arrow 94 x-pointer-right-ptr 96 x-pointer-right-side 98 x-pointer-right-tee 100 x-pointer-rightbutton 102 x-pointer-rtl-logo 104 x-pointer-sailboat 106 x-pointer-sb-down-arrow 108 x-pointer-sb-h-double-arrow 110 x-pointer-sb-left-arrow 112 x-pointer-sb-right-arrow 114 x-pointer-sb-up-arrow 116 x-pointer-sb-v-double-arrow 118 x-pointer-shuttle 120 x-pointer-sizing 122 x-pointer-spider 124 x-pointer-spraycan 126 x-pointer-star 128 x-pointer-target 130 x-pointer-tcross 132 x-pointer-top-left-arrow 134 x-pointer-top-left-corner 136 x-pointer-top-right-corner 138 x-pointer-top-side 140 x-pointer-top-tee 142 x-pointer-trek 144 x-pointer-ul-angle 146 x-pointer-umbrella 148 x-pointer-ur-angle 150 x-pointer-watch 152 x-pointer-xterm] 2) #@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")) (#$ . 7358)) #@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 (#$ . 9109)]) #@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 (#$ . 9499) nil]) (byte-code " # # # # # # # # # # # # # # ########" [substitute-key-definition suspend-emacs iconify-or-deiconify-frame global-map define-key function-key-map [backspace] [127] [delete] [127] [tab] [9] [linefeed] [10] [clear] [11] [return] [13] [escape] [27] [M-backspace] [-134217601] [M-delete] [-134217601] [M-tab] [-134217719] [M-linefeed] [-134217718] [M-clear] [-134217717] [M-return] [-134217715] [M-escape] [-134217701] 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) "‡ØĘŇƘ\"ǘ$ȇɇ" [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 . f35) (392977 . f36) (393056 . req) (393072 . props) (393073 . front) (393074 . copy) (393075 . open) (393076 . paste) (393077 . cut)) ((65280 . remove))] 2 (#$ . 10336)]) (byte-code "! B‡" [boundp x-last-selected-text nil current-load-list] 2) #@52 Max number of characters to put in the cut buffer. (defvar x-cut-buffer-max 20000 (#$ . 11699)) #@101 Non-nil means cutting and pasting uses the clipboard. This is in addition to the primary selection. (defvar x-select-enable-clipboard nil (#$ . 11802)) (defalias 'x-select-text #[(text &optional push) "G W \" \"\"#\" " [text x-cut-buffer-max x-set-cut-buffer push "" x-set-selection PRIMARY x-select-enable-clipboard CLIPBOARD x-last-selected-text] 3]) (defalias 'x-cut-buffer-or-selection-value #[nil "ď Řȏ Ř! )! Ř1 9V  =DV  R  V  )" [nil text c (byte-code "!" [x-get-selection PRIMARY text] 2) ((error (message "%s" c))) "" x-select-enable-clipboard (byte-code "!" [x-get-selection CLIPBOARD text] 2) ((error (message "%s" c))) x-get-cut-buffer 0 x-last-selected-text] 3]) (byte-code " !\n;  \n\"\n\fI)!:\f2!\f#J\fF!\f\" ԥZ^ \"c \"!BB%\"%AB'B'AB'B'*)\",,\"'B'*\"1311!3)Ç" [x-handle-args command-line-args x-resource-name nil i invocation-name string-match "[.*]" 45 fboundp x-close-connection x-open-connection x-display-name getenv "DISPLAY" x-command-line-resources t x-create-frame-with-faces frame-creation-function x-server-max-request-size 2 100 x-cut-buffer-max " Sun Microsystems,? Inc\\." x-server-vendor 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 X makes no sense"] 2]) (byte-code "\"\"" [add-hook suspend-hook x-win-suspend-error x-select-text interprogram-cut-function x-cut-buffer-or-selection-value interprogram-paste-function t split-window-keep-point set-default mode-line-buffer-identification ("Emacs: %12b")] 3)