| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/select.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:12:50 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/select.el
;;; in Emacs version 24.3
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@1107 Coding system for communicating with other programs.
For MS-Windows and MS-DOS:
When sending or receiving text via selection and clipboard, the text
is encoded or decoded by this coding system. The default value is
the current system default encoding on 9x/Me, `utf-16le-dos'
(Unicode) on NT/W2K/XP, and `iso-latin-1-dos' on MS-DOS.
For X Windows:
When sending text via selection and clipboard, if the target
data-type matches with the type of this coding system, it is used
for encoding the text. Otherwise (including the case that this
variable is nil), a proper coding system is used as below:
data-type coding system
--------- -------------
UTF8_STRING utf-8
COMPOUND_TEXT compound-text-with-extensions
STRING iso-latin-1
C_STRING no-conversion
When receiving text, if this coding system is non-nil, it is used
for decoding regardless of the data-type. If this is nil, a
proper coding system is used according to the data-type as above.
See also the documentation of the variable `x-select-request-type' how
to control which data-type to request for receiving text.
The default value is nil.
(custom-declare-variable 'selection-coding-system nil '(#$ . 549) :type 'coding-system :group 'mule :version "23.1" :set #[(symbol value) "\302!\210 L\207" [value symbol set-selection-coding-system] 2])
#@317 Coding system for the next communication with other programs.
Usually, `selection-coding-system' is used for communicating with
other programs (X Windows clients or MS Windows programs). But, if this
variable is set, it is used for the next communication only.
After the communication, this variable is set to nil.
(defvar next-selection-coding-system nil (#$ . 1867))
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias x-selection x-get-selection nil make-obsolete "at least 19.34"] 4)
#@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;\203m \312\313\314 #\211\203m \f\206R
\206R \315=\2030 \316\202R \317=\203: \320\202R \321=\203D \311\202R \310=\203N \322\202R \323\324\"\211\203^ \325 \n\"\202a \326 !\311\327\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 COMPOUND_TEXT compound-text-with-extensions C_STRING iso-8859-1 error "Unknown selection data type: %S" decode-coding-string string-to-multibyte put-text-property] 7 (#$ . 2377)])
#@38 Return text pasted to the clipboard.
(defalias 'x-get-clipboard #[nil "\300\301\302\"\207" [x-get-selection-internal CLIPBOARD STRING] 3 (#$ . 3580)])
#@1111 Make an X 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.
Note that on MS-Windows, primary and secondary selections set by Emacs
are not available to other programs.
(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 (#$ . 3739) (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) "\301!\206U :\2035 \302@!\2035 \302A!\2035 \303@!\2035 \304\303@!!\2035 \303@!\303A!=\206U ;\206U \305!\203N \306!\203N \304\306!!\206U 9\206U \250\207" [data bufferp markerp marker-buffer buffer-name overlayp overlay-buffer] 3])
#@156 Return bounds of X selection value VALUE.
The return value is a list (BEG END BUF) if VALUE is a cons of
two markers or an overlay. Otherwise, it is nil.
(defalias 'xselect--selection-bounds #[(value) "\301!\203 rq\210\302\303!\205 \302\303!`E)\207:\203U \304@!\203U \304A!\203U \305@!\205T \306\305@!!\205T \305@!\305A!=\205k \307@!\307A!\305@!E\207\310!\205k \311!\205k \312!\313!\311!E\207" [value bufferp mark t markerp marker-buffer buffer-name marker-position overlayp overlay-buffer overlay-start overlay-end] 4 (#$ . 5703)])
(defalias 'xselect--int-to-cons #[(n) "\301\302\"\303\304\"B\207" [n ash -16 logand 65535] 4])
(defalias 'xselect--encode-string #[(type str &optional can-modify) "\205\362 \204\n \207\n\206 \211 \203 \306\f!\307 #\204$ \310\311O\312\310G\313$\210 \314=\203\206 \315\316!\203= \317\202\206 \320!\204H \321\202\206 \311\211\211 $ % &\322\323\"\210%\204m &\203q \f\203q \324\f\325\"\326=\203q \327\202\204 &\203z \317\202\204 $\203\203 \321\202\204 \330+ \317=\203\242 \f\203\230 \331\f!\332=\204\232 \332\333\f\"\202\354 \330=\203\276 \f\203\264 \331\f!\334=\204\266 \335\333\f\"\202\354 \327=\203\332 \f\203\320 \331\f!\336=\204\322 \337\333\f\"\202\354 \321=\203\347 \340!\202\354 \341\342 \"\210*\311 B\207" [str type next-selection-coding-system selection-coding-system coding inhibit-read-only coding-system-base t 0 nil remove-text-properties (composition nil) TEXT featurep ns UTF8_STRING multibyte-string-p C_STRING mapc #[(x) "\304Y\205 \305W\203 \306\211\207\307W\203 \306\211\207\306\211\207" [x non-latin-1 non-unicode eight-bit 256 1114112 t 4194176] 2] coding-system-get :mime-charset x-ctext COMPOUND_TEXT STRING coding-system-type utf-8 encode-coding-string charset iso-8859-1 iso-2022 compound-text-with-extensions string-make-unibyte error "Unknown selection type: %S" can-modify eight-bit non-unicode non-latin-1] 6])
(defalias 'xselect-convert-to-string #[(_selection type value) ";\203 \202 \303!\211\205 r\3048q\210@A@{)\305\n \306#)\207" [value str type xselect--selection-bounds 2 xselect--encode-string t] 4])
(defalias 'xselect-convert-to-length #[(_selection _type value) ";\203\n G\202 \302!\211\205 \303@A@Z!\211\205\" \304 !)\207" [value len xselect--selection-bounds abs xselect--int-to-cons] 4])
(defalias 'xselect-convert-to-targets #[(_selection _type _value) "\303\304\305\306\"BB\211\n\203; \n@\nA>\203# \n\307\n@\nA\"\241\210\202 \nA@\310=\2034 \n\211AA\241\210\202 \nA\211\204 \311\312 \"*\207" [selection-converter-alist all rest TIMESTAMP MULTIPLE mapcar car delq _EMACS_INTERNAL apply vector] 6])
(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!\211\205 \302\303\304\3058!\"\207" [value xselect--selection-bounds xselect--encode-string TEXT buffer-file-name 2] 5])
(defalias 'xselect-convert-to-charpos #[(_selection _type value) "\303!\211\205 @SA@S\304\305\306\n ^!\306\n ]!\"*B\207" [value end beg xselect--selection-bounds SPAN vector xselect--int-to-cons] 6])
(defalias 'xselect-convert-to-lineno #[(_selection _type value) "\303!\211\205( r\3048q\210\305@!\305A@!\306\307\310\n ^!\310\n ]!\"+B\207" [value end beg xselect--selection-bounds 2 line-number-at-pos SPAN vector xselect--int-to-cons] 6])
(defalias 'xselect-convert-to-colno #[(_selection _type value) "\303!\211\205* r\3048q\210@b\210iA@b\210i\305\306\307\n ^!\307\n ]!\"+B\207" [value end beg xselect--selection-bounds 2 SPAN vector xselect--int-to-cons] 6])
(defalias 'xselect-convert-to-os #[(_selection _type _size) "\301\302\303!\"\207" [system-type xselect--encode-string TEXT symbol-name] 4])
(defalias 'xselect-convert-to-host #[(_selection _type _size) "\300\301\302 \"\207" [xselect--encode-string TEXT system-name] 3])
(defalias 'xselect-convert-to-user #[(_selection _type _size) "\300\301\302 \"\207" [xselect--encode-string TEXT user-full-name] 3])
#@71 Convert selection to class.
This function returns the string "Emacs".
(defalias 'xselect-convert-to-class #[(_selection _type _size) "\300\207" ["Emacs"] 1 (#$ . 9792)])
#@70 Convert selection to name.
This function returns the string "emacs".
(defalias 'xselect-convert-to-name #[(_selection _type _size) "\300\207" ["emacs"] 1 (#$ . 9968)])
(defalias 'xselect-convert-to-integer #[(_selection _type value) "\250\205 \301!\207" [value xselect--int-to-cons] 2])
(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])
(defalias 'xselect-convert-to-save-targets #[(selection _type _value) "\301=\205 \302\207" [selection CLIPBOARD NULL] 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) (SAVE_TARGETS . xselect-convert-to-save-targets) (_EMACS_INTERNAL . xselect-convert-to-identity)) provide select] 2)