;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:21:08 2007 ;;; from file /home/cyd/emacs/lisp/select.el ;;; in Emacs version 22.0.99 ;;; 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 "`select.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defalias 'x-selection 'x-get-selection) #@529 Return the value of an X Windows selection. The argument TYPE (default `PRIMARY') says which selection, and the argument DATA-TYPE (default `STRING') says how to convert the data. TYPE may be any symbol (but nil stands for `PRIMARY'). However, only a few symbols are commonly used. They conventionally have all upper-case names. The most often used ones, in addition to `PRIMARY', are `SECONDARY' and `CLIPBOARD'. DATA-TYPE is usually `STRING', but can also be one of the symbols in `selection-converter-alist', which see. (defalias 'x-get-selection #[(&optional type data-type) "\306\206\307 \206 \310\"\311\211;\203<\312\313\314 #\211\203< \315=\203(\316\202-\f\206- \317 \n\"\320\313 G\314 %\210 *\207" [type data-type coding data next-selection-coding-system selection-coding-system x-get-selection-internal PRIMARY STRING nil get-text-property 0 foreign-selection UTF8_STRING utf-8 decode-coding-string put-text-property] 7 (#$ . 601)]) #@38 Return text pasted to the clipboard. (defalias 'x-get-clipboard #[nil "\300\301\302\"\207" [x-get-selection-internal CLIPBOARD STRING] 3 (#$ . 1569)]) #@1011 Make an X Windows selection of type TYPE and value DATA. The argument TYPE (nil means `PRIMARY') says which selection, and DATA specifies the contents. TYPE must be a symbol. (It can also be a string, which stands for the symbol with that name, but this is considered obsolete.) DATA may be a string, a symbol, an integer (or a cons of two integers or list of two integers). The selection may also be a cons of two markers pointing to the same buffer, or an overlay. In these cases, the selection is considered to be the text between the markers *at whatever time the selection is examined*. Thus, editing done in the buffer after you specify the selection can alter the effective value of the selection. The data may also be a vector of valid non-vector selection values. The return value is DATA. Interactively, this command sets the primary selection. Without prefix argument, it reads the selection in the minibuffer. With prefix argument, it uses the text of the region as the selection value . (defalias 'x-set-selection #[(type data) ";\203 \304!\305 !\204>\306 !\2037\307 GS\n\310Y\2032\305 \nH!\204+\311\nS\211\202 *\204>\312\313\314 D\"\210\204D\315 \203P\316 \"\210\202T\317!\210 \207" [type data i valid intern x-valid-simple-selection-p vectorp t 0 nil signal error "invalid selection" PRIMARY x-own-selection-internal x-disown-selection-internal] 5 (#$ . 1728) (byte-code "\204\n\301\302\303!D\207\301\304 \305 {D\207" [current-prefix-arg PRIMARY read-string "Set text for pasting: " region-beginning region-end] 3)]) (defalias 'x-valid-simple-selection-p #[(data) ";\206o9\206o\250\206o:\203-@\250\203-A\250\206oA:\203-A@\250\206o\301!\206o:\205o\302@!\205o\302A!\205o\303@!\205o\303A!\205o\303@!\303A!=\205o\304\303@!!\205o\304\303A!!\207" [data overlayp markerp marker-buffer buffer-name] 3]) #@201 Returns the value of one of the 8 X server cut-buffers. Optional arg WHICH-ONE should be a number from 0 to 7, defaulting to 0. Cut buffers are considered obsolete; you should use selections instead. (defalias 'x-get-cut-buffer #[(&optional which-one) "\301\203 \302H\202\f\303!\207" [which-one x-get-cut-buffer-internal [CUT_BUFFER0 CUT_BUFFER1 CUT_BUFFER2 CUT_BUFFER3 CUT_BUFFER4 CUT_BUFFER5 CUT_BUFFER6 CUT_BUFFER7] CUT_BUFFER0] 3 (#$ . 3613)]) #@325 Store STRING into the X server's primary cut buffer. If PUSH is non-nil, also rotate the cut buffers: this means the previous value of the primary cut buffer moves to the second cut buffer, and the second to the third, and so on (there are 8 buffers.) Cut buffers are considered obsolete; you should use selections instead. (defalias 'x-set-cut-buffer #[(string &optional push) ";\204\f\302\303\300D\"\210 \203\304\305!\210\306\307\"\207" [string push signal wrong-type-argument x-rotate-cut-buffers-internal 1 x-store-cut-buffer-internal CUT_BUFFER0] 4 (#$ . 4072)]) (byte-code "\302\303 B\304\303\305\306#\210\307!\210\304\303\310\311\303\"#\210)\303\207" [prog current-load-list [0 61 257 829 16 128 -1020 1 827 16 194 22 78 82681 192 1019 21 128 22 1083 16 224 257 -5372 78 82681 192 1019 21 128 22 1083 16 240 257 -8444 78 82681 192 1019 21 128 22 1083 16 248 257 -11516 78 82681 192 1019 21 128 22 1083 18 248 257 -14588 22 22] ccl-check-utf-8 put variable-documentation "Check if the input unibyte string is a valid UTF-8 sequence or not.\nIf it is valid, set the register `r0' to 1, else set it to 0." (lambda (#1=#:defconst-tmp-var) (defconst ccl-check-utf-8 #1#)) ccl-program-idx register-ccl-program] 6) #@72 Return non-nil iff STRING is a unibyte string of valid UTF-8 sequence. (defalias 'string-utf-8-p #[(string) ";\203 \303!\203\304\305\"\210\306\307\310\"\311\n #\210 \310H\312U)\207" [string status ccl-check-utf-8 multibyte-string-p error "Not a unibyte string: %s" make-vector 9 0 ccl-execute-on-string 1] 4 (#$ . 5303)]) (defalias 'xselect-convert-to-string #[(selection type value) "\306\211\n;\203\n\202o\307\n!\2032\212\310\311\n!!\204!\312\313!\210\311\n!q\210\314\n!\315\n!{)\202o\n:\203o\316\n@!\203o\316\nA!\203o\317\n@!\317\nA!=\204[\320\312\321\n@\nAE\"\210\212\317\n@!\206f\312\313!q\210\n@\nA{) \2053 \204| \210\202.\f\206\201 \211\203\215\322!\202\217\323\324+\325\326 G\327 $\210 \330=\203\343\331 !\204\253\332\202-\333 !,\334\335\334\336\334\337\334\340,\"\"\"\"\211,\203\330\341 \"\342>\203\323\343\202\324\332\202\337\332\341 \344\")\202- \343=\203\361\341 \"\202- \332=\203\f\345>\203\346 !\202-\341 \"\202- \347=\203(\331 !\203\341 \350\"\351 !\204-\306\202-\312\352 \"\210)\306 B*\207" [coding str value type next-selection-coding-system selection-coding-system nil overlayp buffer-name overlay-buffer error "selection is in a killed buffer" overlay-start overlay-end markerp marker-buffer signal "markers must be in the same buffer" coding-system-base raw-text t remove-text-properties 0 (composition nil) TEXT multibyte-string-p STRING find-charset-string delq ascii latin-iso8859-1 eight-bit-control eight-bit-graphic encode-coding-string (compound-text compound-text-with-extensions) COMPOUND_TEXT iso-latin-1 (compound-text compound-text-with-extensions) string-make-unibyte UTF8_STRING utf-8 string-utf-8-p "Unknow selection type: %S" inhibit-read-only charsets] 10]) (defalias 'xselect-convert-to-length #[(selection type value) ";\203\nG\202L\301!\203\302\303!\304!Z!\202L:\205L\305@!\205L\305A!\205L\306@!\306A!=\204E\307\310\311@AE\"\210\302@AZ!\211\205Z\312\313\"\314\315\"B)\207" [value overlayp abs overlay-end overlay-start markerp marker-buffer signal error "markers must be in the same buffer" ash -16 logand 65535] 6]) (defalias 'xselect-convert-to-targets #[(selection type value) "\303\304\305\"B\211\n\2039\n@\nA>\203!\n\306\n@\nA\"\241\210\202 \nA@\307=\2032\n\211AA\241\210\202 \nA\211\204 \310\311 \"*\207" [selection-converter-alist all rest TIMESTAMP mapcar car delq _EMACS_INTERNAL apply vector] 5]) (defalias 'xselect-convert-to-delete #[(selection type value) "\301!\210\302\207" [selection x-disown-selection-internal NULL] 2]) (defalias 'xselect-convert-to-filename #[(selection type value) "\301!\203\302\303!\206\304\305!!\207:\2032\306@!\2032\306A!\2032\302\307@!\2060\304\305!!\207\310\207" [value overlayp buffer-file-name overlay-buffer error "selection is in a killed buffer" markerp marker-buffer nil] 3]) (defalias 'xselect-convert-to-charpos #[(selection type value) "\304\211\211\305 !\203\306 !\307 !\211\2022 :\205]\310 @!\205]\310 A!\205] @ A\211\205]\nS S\211\nW\203G\n \311\312\313\n\314\"\315\n\316\"B\313 \314\"\315 \316\"B\"B+\207" [tmp b a value nil overlayp overlay-start overlay-end markerp SPAN vector ash -16 logand 65535] 8]) (defalias 'xselect-convert-to-lineno #[(selection type value) "\305\211\211\211\f:\203.\306\f@!\203.\306\fA!\203.\307\f@!\307\fA!\310\f@!\211\202A\311\f!\205u\312\f!\313\f!\314\f!\211\205u\212 q\210\315\316 \"\315\316\n\")\n W\203_ \n\317\320\321 \322\"\323 \324\"B\321\n\322\"\323\n\324\"B\"B,\207" [tmp buf b a value nil markerp marker-position marker-buffer overlayp overlay-buffer overlay-start overlay-end count-lines 1 SPAN vector ash -16 logand 65535] 7]) (defalias 'xselect-convert-to-colno #[(selection type value) "\305\211\211\211\f:\203)\306\f@!\203)\306\fA!\203)\f@\fA\307 !\211\202<\310\f!\205p\311\f!\312\f!\313\f!\211\205p\212 q\210 b\210i\nb\210i)\n W\203Z \n\314\315\316 \317\"\320 \321\"B\316\n\317\"\320\n\321\"B\"B,\207" [tmp buf b a value nil markerp marker-buffer overlayp overlay-buffer overlay-start overlay-end SPAN vector ash -16 logand 65535] 7]) (defalias 'xselect-convert-to-os #[(selection type size) "\301!\207" [system-type symbol-name] 2]) (defalias 'xselect-convert-to-host #[(selection type size) "\300 \207" [system-name] 1]) (defalias 'xselect-convert-to-user #[(selection type size) "\300 \207" [user-full-name] 1]) #@71 Convert selection to class. This function returns the string "Emacs". (defalias 'xselect-convert-to-class #[(selection type size) "\300\207" ["Emacs"] 1 (#$ . 9761)]) #@70 Convert selection to name. This function returns the string "emacs". (defalias 'xselect-convert-to-name #[(selection type size) "\300\207" ["emacs"] 1 (#$ . 9934)]) (defalias 'xselect-convert-to-integer #[(selection type value) "\250\205\301\302\"\303\304\"B\207" [value ash -16 logand 65535] 4]) (defalias 'xselect-convert-to-atom #[(selection type value) "9\205\207" [value] 1]) (defalias 'xselect-convert-to-identity #[(selection type value) "\301!\207" [value vector] 2]) (byte-code "\301\302\303!\207" [selection-converter-alist ((TEXT . xselect-convert-to-string) (COMPOUND_TEXT . xselect-convert-to-string) (STRING . xselect-convert-to-string) (UTF8_STRING . xselect-convert-to-string) (TARGETS . xselect-convert-to-targets) (LENGTH . xselect-convert-to-length) (DELETE . xselect-convert-to-delete) (FILE_NAME . xselect-convert-to-filename) (CHARACTER_POSITION . xselect-convert-to-charpos) (LINE_NUMBER . xselect-convert-to-lineno) (COLUMN_NUMBER . xselect-convert-to-colno) (OWNER_OS . xselect-convert-to-os) (HOST_NAME . xselect-convert-to-host) (USER . xselect-convert-to-user) (CLASS . xselect-convert-to-class) (NAME . xselect-convert-to-name) (ATOM . xselect-convert-to-atom) (INTEGER . xselect-convert-to-integer) (_EMACS_INTERNAL . xselect-convert-to-identity)) provide select] 2)