Current File : //usr/local/share/emacs/27.2/lisp/select.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable selection-coding-system funcall function #[0 "\300\207" [nil] 1] "Coding system for communicating with other programs.\n\nFor MS-Windows and MS-DOS:\nWhen sending or receiving text via selection and clipboard, the text\nis encoded or decoded by this coding system. The default value is\nthe current system default encoding on 9x/Me, `utf-16le-dos'\n(Unicode) on NT/W2K/XP, and `iso-latin-1-dos' on MS-DOS.\n\nFor X Windows:\nWhen sending text via selection and clipboard, if the target\ndata-type matches this coding system according to the table\nbelow, it is used for encoding the text. Otherwise (including\nthe case that this variable is nil), a proper coding system is\nselected as below:\n\ndata-type coding system\n--------- -------------\nUTF8_STRING utf-8\nCOMPOUND_TEXT compound-text-with-extensions\nSTRING iso-latin-1\nC_STRING raw-text-unix\n\nWhen receiving text, if this coding system is non-nil, it is used\nfor decoding regardless of the data-type. If this is nil, a\nproper coding system is used according to the data-type as above.\n\nSee also the documentation of the variable `x-select-request-type' how\nto control which data-type to request for receiving text.\n\nThe default value is nil." :type coding-system :group mule :version "23.1" :set #[514 "\300!\210L\207" [set-selection-coding-system] 4 "\n\n(fn SYMBOL VALUE)"]] 12)
#@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 (#$ . 1871))
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\306\307\310\303#\210\311\211\2034 \211@\307N\203- \310N\204- \312\310\307N#\210A\266\202\202 \210\313\307\310\314#\210\315\310\316\317\320DD\321\322\323\324\325\326\327& \210\306\330\331\303#\210\332\211\203t \211@\330N\203m \331N\204m \312\331\330N#\210A\266\202\202S \210\313\330\331\314#\210\315\331\316\317\333DD\334\322\323\324\325\326\314& \207" [defalias x-selection x-get-selection nil make-obsolete "at least 19.34" defvaralias x-select-enable-clipboard select-enable-clipboard (saved-value saved-variable-comment) put make-obsolete-variable "25.1" custom-declare-variable funcall function #[0 "\300\207" [t] 1] "Non-nil means cutting and pasting uses the clipboard.\nThis can be in addition to, but in preference to, the primary selection,\nif applicable (i.e. under X11)." :type boolean :group killing :version "24.1" x-select-enable-primary select-enable-primary (saved-value saved-variable-comment) #[0 "\300\207" [nil] 1] "Non-nil means cutting and pasting uses the primary selection.\nThe existence of a primary selection depends on the underlying GUI you use.\nE.g. it doesn't exist under MS-Windows."] 10)
#@49 The value of the CLIPBOARD selection last seen.
(defvar gui--last-selected-text-clipboard nil (#$ . 3436))
#@47 The value of the PRIMARY selection last seen.
(defvar gui--last-selected-text-primary nil (#$ . 3549))
#@268 Select TEXT, a string, according to the window system.
if `select-enable-clipboard' is non-nil, copy TEXT to the system's clipboard.
If `select-enable-primary' is non-nil, put TEXT in the primary selection.
MS-Windows does not have a "primary" selection.
(fn TEXT)
(defalias 'gui-select-text #[257 "\203 \305\306\"\210\211\n\205 \211\305\307\"\210\211\211\207" [select-enable-primary gui--last-selected-text-primary select-enable-clipboard saved-region-selection gui--last-selected-text-clipboard gui-set-selection PRIMARY CLIPBOARD] 4 (#$ . 3659)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\306\307\310\311\312DD\313\314\315\316\317&\207" [defalias x-select-text gui-select-text nil make-obsolete "25.1" custom-declare-variable x-select-request-type funcall function #[0 "\300\207" [nil] 1] "Data type request for X selection.\nThe value is one of the following data types, a list of them, or nil:\n `COMPOUND_TEXT', `UTF8_STRING', `STRING', `TEXT'\n\nIf the value is one of the above symbols, try only the specified type.\n\nIf the value is a list of them, try each of them in the specified\norder until succeed.\n\nThe value nil is the same as the list (UTF8_STRING COMPOUND_TEXT STRING)." :type (choice (const :tag "Default" nil) (const COMPOUND_TEXT) (const UTF8_STRING) (const STRING) (const TEXT) (set :tag "List of values" (const COMPOUND_TEXT) (const UTF8_STRING) (const STRING) (const TEXT))) :group killing] 8)
#@240 Get a selection value of type TYPE.
Call `gui-get-selection' with an appropriate DATA-TYPE argument
decided by `x-select-request-type'. The return value is already
decoded. If `gui-get-selection' signals an error, return nil.
(fn TYPE)
(defalias 'gui--selection-value-internal #[257 "\302=\203 \206 \303\202 \304\305\3061; :\2030 \2057 \211?\2057 \307@\"\262A\262\202 \307\"\211\2620\202A \310\311\"\262\210\211\203N \312\313G\314$\210\207" [window-system x-select-request-type x (UTF8_STRING COMPOUND_TEXT STRING) STRING nil (debug error) gui-get-selection message "gui-get-selection: %S" remove-text-properties 0 (foreign-selection nil)] 8 (#$ . 5113)])
(defalias 'gui-selection-value #[0 "\205 \305\306!\211\307\230\203 \310\262\211 \232?\205 \211\262\n\2058 \305\311!\211\307\230\203, \310\262\211 \232?\2054 \211\262\310\206? \211\207" [select-enable-clipboard gui--last-selected-text-clipboard select-enable-primary gui--last-selected-text-primary next-selection-coding-system gui--selection-value-internal CLIPBOARD "" nil PRIMARY] 4])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias x-selection-value gui-selection-value nil make-obsolete "25.1"] 4)
#@38 Return text pasted to the clipboard.
(defalias 'x-get-clipboard #[0 "\300\301\302\"\207" [gui-backend-get-selection CLIPBOARD STRING] 3 (#$ . 6332)])
(make-obsolete 'x-get-clipboard 'gui-get-selection "25.1")
#@62 Return the PRIMARY selection, or the best emulation thereof.
(defalias 'gui-get-primary-selection #[0 "\300\301!\206 \302\303!\203 \304\305 !\306=\203 \303 \206 \307\310!\207" [gui--selection-value-internal PRIMARY fboundp w32-get-selection-value framep selected-frame w32 error "No selection is available"] 2 (#$ . 6547)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\300\306\307\306\310\303#\311#\210\312\306\303\310\303\313%\210\300\314\307\314\315\303#\316#\210\312\314\303\315\303\317%\210\300\320\307\320\321\303#\322#\210\312\320\303\321\303\323%\210\300\324\307\324\325\303#\326#\210\312\324\303\325\303\327%\207" [defalias x-get-selection-value gui-get-primary-selection nil make-obsolete "25.1" gui-backend-get-selection cl-generic-define (_selection-symbol _target-type) "Return selected text.\nSELECTION-SYMBOL is typically `PRIMARY', `SECONDARY', or `CLIPBOARD'.\n(Those are literal upper-case symbol names, since that's what X expects.)\nTARGET-TYPE is the type of data desired, typically `STRING'.\n\n(fn SELECTION-SYMBOL TARGET-TYPE)" cl-generic-define-method #[514 "\300\207" [nil] 3 "\n\n(fn SELECTION-SYMBOL TARGET-TYPE)"] gui-backend-set-selection (_selection _value) "Method to assert a selection of type SELECTION and value VALUE.\nSELECTION is a symbol, typically `PRIMARY', `SECONDARY', or `CLIPBOARD'.\nIf VALUE is nil and we own the selection SELECTION, disown it instead.\nDisowning it means there is no such selection.\n(Those are literal upper-case symbol names, since that's what X expects.)\nVALUE is typically a string, or a cons of two markers, but may be\nanything that the functions on `selection-converter-alist' know about.\n\n(fn SELECTION VALUE)" #[514 "\300\207" [nil] 3 "\n\n(fn SELECTION VALUE)"] gui-backend-selection-owner-p (_selection) "Whether the current Emacs process owns the given X Selection.\nThe arg should be the name of the selection in question, typically one of\nthe symbols `PRIMARY', `SECONDARY', or `CLIPBOARD'.\n(Those are literal upper-case symbol names, since that's what X expects.)\n\n(fn SELECTION)" #[257 "\300\207" [nil] 2 "\n\n(fn SELECTION)"] gui-backend-selection-exists-p (_selection) "Whether there is an owner for the given X Selection.\nThe arg should be the name of the selection in question, typically one of\nthe symbols `PRIMARY', `SECONDARY', or `CLIPBOARD'.\n(Those are literal upper-case symbol names, since that's what X expects.)\n\n(fn SELECTION)" #[257 "\300\207" [nil] 2 "\n\n(fn SELECTION)"]] 6)
#@776 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. Window systems other
than X usually support only a small subset of these symbols, in
addition to `STRING'; MS-Windows supports `TARGETS', which reports
the formats available in the clipboard if TYPE is `CLIPBOARD'.
(fn &optional TYPE DATA-TYPE)
(defalias 'gui-get-selection #[512 "\302\206 \303\206 \304\"\211;\203Y \305\306\307#\211\262\203Y \206> \206> \310\267\202: \311\202> \312\202> \313\202> \314\202> \315\316\"\211\203I \317\"\202L \320!\266\202\313\321\306G\307%\210\211\207" [next-selection-coding-system selection-coding-system gui-backend-get-selection PRIMARY STRING get-text-property 0 foreign-selection #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (UTF8_STRING 42 COMPOUND_TEXT 46 C_STRING 50 STRING 54)) utf-8 compound-text-with-extensions nil iso-8859-1 error "Unknown selection data type: %S" decode-coding-string string-to-multibyte put-text-property] 9 (#$ . 9053)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias x-get-selection gui-get-selection nil make-obsolete "25.1"] 4)
#@1127 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.
(fn TYPE DATA)
(defalias 'gui-set-selection #[514 ";\203\n \300!\262\301!\204C \302!\203< \303G\304\211W\2034 \211\301H!\204, \305\262\210\211T\262\202 \266\211\262\204C \306\307\310D\"\210\204J \311\262\312\"\210\207" [intern gui--valid-simple-selection-p vectorp t 0 nil signal error "invalid selection" PRIMARY gui-backend-set-selection] 9 (#$ . 10665) (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)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias x-set-selection gui-set-selection nil make-obsolete "25.1"] 4)
#@13
(fn DATA)
(defalias 'gui--valid-simple-selection-p #[257 "\300!\206U \211:\2035 \301@!\2035 \301A!\2035 \302@!\2035 \303\302@!!\2035 \302@!\302A!=\206U \211;\206U \304!\203N \305!\203N \303\305!!\206U \2119\206U \211\250\207" [bufferp markerp marker-buffer buffer-live-p overlayp overlay-buffer] 4 (#$ . 12445)])
#@168 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.
(fn VALUE)
(defalias 'xselect--selection-bounds #[257 "\300!\203 r\211q\210\301\302!\205 \301\302!`E)\207\211:\203U \303@!\203U \303A!\203U \304@!\205T \305\304@!!\205T \304@!\304A!=\205k \306@!\306A!\304@!E\207\307!\205k \310!\205k \311!\312!\310!E\207" [bufferp mark t markerp marker-buffer buffer-name marker-position overlayp overlay-buffer overlay-start overlay-end] 5 (#$ . 12777)])
#@10
(fn N)
(defalias 'xselect--int-to-cons #[257 "\300\301\"\302\303\"B\207" [ash -16 logand 65535] 5 (#$ . 13346)])
#@38
(fn TYPE STR &optional CAN-MODIFY)
(defalias 'xselect--encode-string #[770 "\205 \204\n \207\206 \211\203 \303!\262\304\204$ \305\306\"\262\307\306G\310$\210\311=\203\231 \312\313!\203? \314\262\202\231 \315!\204K \316\262\202\231 \317C\317C\317C\320\321\322\323\324\325#\326\"\327\330%\"\210\242\204~ \242\203\202 \203\202 \331\332\"\333=\203\202 \334\202\225 \242\203\213 \314\202\225 \211\242\203\224 \316\202\225 \335\262\266\336\267\202\366 \211\203\253 \337!\340=\204\256 \340\262\341\"\262\202\373 \211\203\303 \337!\342=\204\306 \343\262\341\"\262\202\373 \211\203\333 \337!\344=\204\336 \345\262\341\"\262\202\373 \315!\203\373 \341\346\"\262\202\373 \347\350\"\210)\210\351\352\353\304\211%\262\317B\207" [next-selection-coding-system selection-coding-system inhibit-read-only coding-system-base t substring 0 remove-text-properties (composition nil) TEXT featurep ns UTF8_STRING multibyte-string-p C_STRING nil mapc make-byte-code 257 "\211\303Y\205 \211\304W\203 \300\305\240\207\211\306W\203 \301\305\240\207\302\305\240\207" vconcat vector [256 1114112 t 4194176] 3 "\n\n(fn X)" coding-system-get :mime-charset x-ctext COMPOUND_TEXT STRING #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (UTF8_STRING 159 STRING 183 COMPOUND_TEXT 207 C_STRING 231)) coding-system-type utf-8 encode-coding-string charset iso-8859-1 iso-2022 compound-text-with-extensions raw-text-unix error "Unknown selection type: %S" replace-regexp-in-string " " "\\0"] 16 (#$ . 13469)])
#@29
(fn SELECTION TYPE VALUE)
(defalias 'xselect-convert-to-string #[771 "\211;\203 \211\202 \300!\211\262\205 r\3018q\210\211@A@{)\302\303#\207" [xselect--selection-bounds 2 xselect--encode-string t] 8 (#$ . 15048)])
#@29
(fn SELECTION TYPE VALUE)
(defalias 'xselect-convert-to-length #[771 "\211;\203\n \211G\202 \300!\211\262\205 \301@A@Z!\211\205\" \302!\207" [xselect--selection-bounds abs xselect--int-to-cons] 6 (#$ . 15279)])
#@29
(fn SELECTION TYPE VALUE)
(defalias 'xselect-convert-to-targets #[771 "\301\302\303\304\"BB\211\211\2039 \211@A>\203! \211\305@A\"\241\210\202 \211A@\306=\2032 \211AA\241\210\202 \211A\262\202 \307\310\"\207" [selection-converter-alist TIMESTAMP MULTIPLE mapcar car delq _EMACS_INTERNAL apply vector] 9 (#$ . 15505)])
#@29
(fn SELECTION TYPE VALUE)
(defalias 'xselect-convert-to-delete #[771 "\300\301\"\210\302\207" [gui-backend-set-selection nil NULL] 6 (#$ . 15841)])
#@29
(fn SELECTION TYPE VALUE)
(defalias 'xselect-convert-to-filename #[771 "\300!\211\262\205 \301\302\303\3048!\"\207" [xselect--selection-bounds xselect--encode-string TEXT buffer-file-name 2] 8 (#$ . 15998)])
#@29
(fn SELECTION TYPE VALUE)
(defalias 'xselect-convert-to-charpos #[771 "\300!\211\262\205 \211@SA@S\301\302\303^!\303]!\"B\266\202\207" [xselect--selection-bounds SPAN vector xselect--int-to-cons] 11 (#$ . 16218)])
#@29
(fn SELECTION TYPE VALUE)
(defalias 'xselect-convert-to-lineno #[771 "\300!\211\262\205) r\3018q\210\302@!\302A@!\303\304\305^!\305]!\"B\266\202)\207" [xselect--selection-bounds 2 line-number-at-pos SPAN vector xselect--int-to-cons] 11 (#$ . 16448)])
#@29
(fn SELECTION TYPE VALUE)
(defalias 'xselect-convert-to-colno #[771 "\300!\211\262\205+ r\3018q\210\211@b\210iA@b\210i\302\303\304^!\304]!\"B\266\202)\207" [xselect--selection-bounds 2 SPAN vector xselect--int-to-cons] 11 (#$ . 16716)])
#@28
(fn SELECTION TYPE SIZE)
(defalias 'xselect-convert-to-os #[771 "\301\302\303!\"\207" [system-type xselect--encode-string TEXT symbol-name] 7 (#$ . 16969)])
#@28
(fn SELECTION TYPE SIZE)
(defalias 'xselect-convert-to-host #[771 "\300\301\302 \"\207" [xselect--encode-string TEXT system-name] 6 (#$ . 17135)])
#@28
(fn SELECTION TYPE SIZE)
(defalias 'xselect-convert-to-user #[771 "\300\301\302 \"\207" [xselect--encode-string TEXT user-full-name] 6 (#$ . 17290)])
#@97 Convert selection to class.
This function returns the string "Emacs".
(fn SELECTION TYPE SIZE)
(defalias 'xselect-convert-to-class #[771 "\300\207" ["Emacs"] 4 (#$ . 17448)])
#@96 Convert selection to name.
This function returns the string "emacs".
(fn SELECTION TYPE SIZE)
(defalias 'xselect-convert-to-name #[771 "\300\207" ["emacs"] 4 (#$ . 17630)])
#@29
(fn SELECTION TYPE VALUE)
(defalias 'xselect-convert-to-integer #[771 "\211\250\205 \300!\207" [xselect--int-to-cons] 5 (#$ . 17810)])
#@29
(fn SELECTION TYPE VALUE)
(defalias 'xselect-convert-to-atom #[771 "\2119\205 \211\207" [] 4 (#$ . 17955)])
#@29
(fn SELECTION TYPE VALUE)
(defalias 'xselect-convert-to-identity #[771 "\300!\207" [vector] 5 (#$ . 18072)])
#@29
(fn SELECTION TYPE VALUE)
(defalias 'xselect-convert-to-save-targets #[771 "\300=\205 \301\207" [CLIPBOARD NULL] 5 (#$ . 18190)])
(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)
Mini Shell