;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Tue Aug 2 01:38:26 1994 ;;; from file /home/fsf/rms/e19/lisp/term/x-win.el ;;; emacs version 19.25.90.2. ;;; 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"))) (error "`/home/fsf/rms/e19/lisp/term/x-win.el' was compiled for Emacs 19")) (byte-code "=\f \"!!!!!!!- \"\"\"\"\"\"\"" [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 boundp x-command-line-resources nil append (("-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)) command-switch-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 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] x-handle-iconic #[(switch) " B" [(visibility . icon) initial-frame-alist] 2] 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] 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] 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] 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]] 3) (defvar x-display-name nil "\ The X display name specifying server and X frame.") (byte-code "\"! Ň" [defalias x-handle-display #[(switch) "@A" [x-invocation-args x-display-name] 2] boundp x-invocation-args nil] 3) (defalias 'x-handle-args #[(args) " * @ \" A\"A !& B*" [args x-invocation-args nil this-switch assoc command-switch-alist aelt] 3 "\ 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."]) (byte-code "   !#%')+-/13579;=?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~" [0 x-pointer-X-cursor 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] 1) (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" "medium goldenrod" "MediumGoldenrod" "green" "Green" "dark green" "DarkGreen" "dark olive green" "DarkOliveGreen" "forest green" "ForestGreen" "lime green" "LimeGreen" "medium forest green" "MediumForestGreen" "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")) "\ The full list of X colors from the rgb.text file.") (defalias 'x-defined-colors #[nil "\f\f@\fA ! \nB\n+" [x-colors nil defined-colors this-color all-colors x-color-defined-p] 3 "\ Return a list of colors supported by the current X-Display."]) (defalias 'iconify-or-deiconify-frame #[nil " A= " [visibility frame-parameters t iconify-frame make-frame-visible] 2 "\ Iconify the selected frame, or deiconify if it's currently an icon." nil]) (byte-code " # # # # # # # # # # # # # # ########2!4" [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] [-8388481] [M-delete] [-8388481] [M-tab] [-8388599] [M-linefeed] [-8388598] [M-clear] [-8388597] [M-return] [-8388595] [M-escape] [-8388581] put backspace ascii-character 127 delete tab 9 linefeed 10 clear 12 return 13 escape 27 ((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) (65280 . remove) (392976 . f35) (392977 . f36) (393056 . req) (393072 . props) (393073 . front) (393074 . copy) (393075 . open) (393076 . paste) (393077 . cut)) system-key-alist boundp x-last-selected-text nil] 4) (defvar x-cut-buffer-max 20000 "\ Max number of characters to put in the cut buffer.") (defvar x-select-enable-clipboard nil "\ Non-nil means cutting and pasting uses the clipboard. This is in addition to the primary selection.") (byte-code "\"\"!;3 \" 2 I)!C!\" إZ^ \"` \"!t#!!\"#)%\"((\"+B+*\".0..!0)\"\"678ȇ" [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] 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] x-handle-args command-line-args x-resource-name nil i invocation-name string-match "[.*]" 45 menu-bar-mode t x-open-connection x-display-name getenv "DISPLAY" x-command-line-resources x-create-frame-with-faces frame-creation-function x-server-max-request-size 2 100 x-cut-buffer-max "X11/NeWS - Sun Microsystems Inc\\." x-server-vendor menu-bar-enable-clipboard x-get-resource "geometry" "Geometry" res-geometry append initial-frame-alist x-parse-geometry case-fold-search "reverseVideo" "ReverseVideo" rv "^\\(true\\|yes\\|on\\)$" (reverse . t) default-frame-alist "selectionTimeout" "SelectionTimeout" res-selection-timeout 20000 x-selection-timeout string-to-number x-win-suspend-error #[nil "!" [error "Suspending an emacs running under X makes no sense"] 2] add-hook suspend-hook interprogram-cut-function interprogram-paste-function split-window-keep-point] 5)