;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:51:57 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/select.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; 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) #@358 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 `SECONDARY' or `CLIPBOARD', in addition to `PRIMARY'. 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) "\302\206\303 \206 \304\"\207" [type data-type x-get-selection-internal PRIMARY STRING] 3 (#$ . 656)]) #@38 Return text pasted to the clipboard. (defalias 'x-get-clipboard #[nil "\300\301\302\"\207" [x-get-selection-internal CLIPBOARD STRING] 3 (#$ . 1182)]) #@747 Make an X Windows selection of type TYPE and value DATA. The argument TYPE (default `PRIMARY') says which selection, and DATA specifies the contents. 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. Interactively, the text of the region is used as the selection value if the prefix arg is set. (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 (#$ . 1340) (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]) #@202 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 (#$ . 2961)]) #@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) "\302\211O\210 \203 \303\304!\210\305\306\"\207" [string push 0 x-rotate-cut-buffers-internal 1 x-store-cut-buffer-internal CUT_BUFFER0] 3 (#$ . 3421)]) (defalias 'xselect-convert-to-string #[(selection type value) ";\203\207\301!\203(\212\302\303!!\204\304\305!\210\303!q\210\306!\307!{)\207:\203e\310@!\203e\310A!\203e\311@!\311A!=\204Q\312\304\313@AE\"\210\212\311@!\206\\\304\305!q\210@A{)\207\314\207" [value 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" nil] 5]) (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]) #@7 Emacs (defalias 'xselect-convert-to-class #[(selection type size) "\300\207" ["Emacs"] 1 (#$ . 7107)]) #@7 emacs (defalias 'xselect-convert-to-name #[(selection type size) "\300\207" ["emacs"] 1 (#$ . 7215)]) (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) (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)