;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (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 (#$ . 1549)) (byte-code "\300\301\302\303#\210\304\211\203(\211@\301N\203!\302N\204!\305\302\301N#\210A\266\202\202\210\306\301\302\307#\210\310\302\311\312\313DD\314\315\316\317\320\321\322& \210\300\323\324\303#\210\325\211\203h\211@\323N\203a\324N\204a\305\324\323N#\210A\266\202\202G\210\306\323\324\307#\210\310\324\311\312\326DD\327\315\316\317\320\321\307& \207" [defvaralias x-select-enable-clipboard select-enable-clipboard nil (saved-value saved-variable-comment) put make-obsolete-variable "25.1" custom-declare-variable funcall function #[0 "\300\207" [t] 1 #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 #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 (#$ . 3013))#@47 The value of the PRIMARY selection last seen. (defvar gui--last-selected-text-primary nil (#$ . 3125))#@53 The timestamp of the CLIPBOARD selection last seen. (defvar gui--last-selection-timestamp-clipboard nil (#$ . 3233))#@51 The timestamp of the PRIMARY selection last seen. (defvar gui--last-selection-timestamp-primary nil (#$ . 3355))#@78 Whether or not the last call to `interprogram-cut-function' owned CLIPBOARD. (defvar gui-last-cut-in-clipboard nil (#$ . 3473))#@76 Whether or not the last call to `interprogram-cut-function' owned PRIMARY. (defvar gui-last-cut-in-primary nil (#$ . 3606))#@161 Save last clipboard selection. Save the selected text, passed as argument, and for window systems that support it, save the selection timestamp too. (fn TEXT) (defalias 'gui--set-last-clipboard-selection #[257 "\211 \303=\205\304\305\306\"\211\207" [gui--last-selected-text-clipboard window-system gui--last-selection-timestamp-clipboard x gui-backend-get-selection CLIPBOARD TIMESTAMP] 4 (#$ . 3736)])#@159 Save last primary selection. Save the selected text, passed as argument, and for window systems that support it, save the selection timestamp too. (fn TEXT) (defalias 'gui--set-last-primary-selection #[257 "\211 \303=\205\304\305\306\"\211\207" [gui--last-selected-text-primary window-system gui--last-selection-timestamp-primary x gui-backend-get-selection PRIMARY TIMESTAMP] 4 (#$ . 4150)])#@229 Check whether the clipboard selection has changed. Compare the selection text, passed as argument, with the text from the last saved selection. For window systems that support it, compare the selection timestamp too. (fn TEXT) (defalias 'gui--clipboard-selection-unchanged-p #[257 "\211\232\205 \303=?\206\n\304\305\306\"=\207" [gui--last-selected-text-clipboard window-system gui--last-selection-timestamp-clipboard x gui-backend-get-selection CLIPBOARD TIMESTAMP] 5 (#$ . 4554)])#@227 Check whether the primary selection has changed. Compare the selection text, passed as argument, with the text from the last saved selection. For window systems that support it, compare the selection timestamp too. (fn TEXT) (defalias 'gui--primary-selection-unchanged-p #[257 "\211\232\205 \303=?\206\n\304\305\306\"=\207" [gui--last-selected-text-primary window-system gui--last-selection-timestamp-primary x gui-backend-get-selection PRIMARY TIMESTAMP] 5 (#$ . 5048)])#@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\307!\210 \203\211\305\310\"\210\311!\210 \211\207" [select-enable-primary select-enable-clipboard saved-region-selection gui-last-cut-in-clipboard gui-last-cut-in-primary gui-set-selection PRIMARY gui--set-last-primary-selection CLIPBOARD gui--set-last-clipboard-selection] 4 (#$ . 5532)]) (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', `text/plain\\;charset=utf-8'\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\ntext/plain\\;charset=utf-8)." :type (choice (const :tag "Default" nil) (const COMPOUND_TEXT) (const UTF8_STRING) (const STRING) (const TEXT) (const text/plain\;charset=utf-8) (set :tag "List of values" (const COMPOUND_TEXT) (const UTF8_STRING) (const STRING) (const TEXT) (const text/plain\;charset=utf-8))) :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 "\205 \303>\205\211\304=\205\305!?\205g \306>\203%\n\206&\307\202&\310\311\3121S:\203G\205N\211?\205N\313@\"\262A\262\2020\313\"\211\2620\210\202Y\314\315\"\266\211\203e\316\317G\320$\210\262\207" [gui-last-cut-in-clipboard window-system x-select-request-type (x haiku) CLIPBOARD gui-backend-selection-owner-p (x pgtk haiku) (UTF8_STRING COMPOUND_TEXT STRING text/plain\;charset=utf-8) STRING nil (debug error) gui-get-selection message "gui-get-selection: %S" remove-text-properties 0 (foreign-selection nil)] 8 (#$ . 7177)]) (defalias 'gui-selection-value #[0 "\205\"\305\306!\211\307\230\203\310\262 \205\311!?\205 \312!\210\211\262\n\205D\305\313!\211\307\230\2032\310\262 \2059\314!?\205B\315!\210\211\262\310\206K\211\207" [select-enable-clipboard gui-last-cut-in-clipboard select-enable-primary gui-last-cut-in-primary next-selection-coding-system gui--selection-value-internal CLIPBOARD "" nil gui--clipboard-selection-unchanged-p gui--set-last-clipboard-selection PRIMARY gui--primary-selection-unchanged-p gui--set-last-primary-selection] 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 (#$ . 8710)]) (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 (#$ . 8924)]) (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;\203\201\305\306\307#\203\201\206< \206<\310\267\202;\311\202<\311\202<\312\202<\313\202<\314\202<\313\211\203I\315\"\266\202\202v\316=\203W\317!\266\202\202v\320\321!\313\322\323$\266\203\203s\315\324!@\"\266\202\202v\266\202\313\325\306G\307%\210\207" [next-selection-coding-system selection-coding-system gui-backend-get-selection PRIMARY STRING get-text-property 0 foreign-selection #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (UTF8_STRING 39 text/plain\;charset=utf-8 43 COMPOUND_TEXT 47 C_STRING 51 STRING 55)) utf-8 compound-text-with-extensions nil iso-8859-1 decode-coding-string C_STRING string-to-multibyte "\\`text/" symbol-name string-match t detect-coding-string put-text-property] 12 (#$ . 11429)]) (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)#@1347 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, or an integer. 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. If DATA is a string, then its text properties can specify alternative values for different data types. For example, the value of any property named `text/uri-list' will be used instead of DATA itself when another program converts TYPE to the target `text/uri-list'. 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!\204A\302!\203:\303G\304\211W\2032\301H!\204+\305\262\211T\262\202\266\211\262\204A\306\307\310D\"\210\204H\311\262\312\"\210\207" [intern gui--valid-simple-selection-p vectorp t 0 nil signal error "invalid selection" PRIMARY gui-backend-set-selection] 8 (#$ . 13198) (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 (#$ . 15189)])#@53 The last buffer from which the region was selected. (defvar lost-selection-last-region-buffer nil (#$ . 15519))#@176 Handle the region being selected into PRIMARY. If the current buffer is different from the last buffer, deactivate the mark in every other buffer. TEXT is ignored. (fn TEXT) (defalias 'lost-selection-post-select-region-function #[257 "p=?\2059\301 \211\2035\211@\302\303!\304\305\306$\266\203\204.\211p=\204.r\211q\210\307\306!)\210A\266\202\202 \210p\211\207" [lost-selection-last-region-buffer buffer-list "^ " buffer-name nil string-match t deactivate-mark] 11 (#$ . 15637)])#@136 Handle losing of ownership of SELECTION. If SELECTION is `PRIMARY', deactivate the mark in every non-temporary buffer. (fn SELECTION) (defalias 'lost-selection-function #[257 "\301\211\302=\2052\303 \211\2050\211@\304\305!\301\306\307$\266\203\204)r\211q\210\310\307!)\210A\266\202\202\n\262)\207" [select-active-regions nil PRIMARY buffer-list "^ " buffer-name string-match t deactivate-mark] 11 (#$ . 16135)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable lost-selection-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Lost-Selection mode is enabled.\nSee the `lost-selection-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `lost-selection-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group x] 12)#@923 Toggle `lost-selection-mode'. When this is enabled, selecting some text in another program will cause the mark to be deactivated in all buffers, mimicking the behavior of most X Windows programs. Selecting text in a buffer that ends up changing the primary selection will also cause the mark to be deactivated in all other buffers. This is a global minor mode. If called interactively, toggle the `Lost-Selection mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `(default-value \='lost-selection-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'lost-selection-mode #[256 "\303 \304\301\305=\203\306\301!?\202!\247\203 \307W\203 \310\202!\311\"\210\312\300!\2038\313\301\"\306\301!\2038\301B \203k\314\315!\203J\316\317\320\"\210\202c\314\321!\203X\316\322\320\"\210\202c\314\323!\203c\316\324\320\"\210\316\325\326\"\210\202\231\314\315!\203y\327\317\320\"\210\202\222\314\321!\203\207\327\322\320\"\210\202\222\314\323!\203\222\327\324\320\"\210\327\325\326\"\210\310\330\331\306\301!\203\245\332\202\246\333\"\210\334\335!\203\317\336\301!\210\303 \203\276\211\303 \232\203\317\337\340\341\306\301!\203\313\342\202\314\343\344$\210\210\345 \210\306\301!\207" [global-minor-modes lost-selection-mode lost-selection-last-region-buffer current-message set-default toggle default-value 1 nil t boundp delq featurep x add-hook x-lost-selection-functions lost-selection-function pgtk pgtk-lost-selection-functions haiku haiku-lost-selection-functions post-select-region-hook lost-selection-post-select-region-function remove-hook run-hooks lost-selection-mode-hook lost-selection-mode-on-hook lost-selection-mode-off-hook called-interactively-p any customize-mark-as-set message "%s %sabled%s" "Lost-Selection mode" "en" "dis" "" force-mode-line-update] 7 (#$ . 17109) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar lost-selection-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [lost-selection-mode-map lost-selection-mode-hook variable-documentation put "Hook run after entering or leaving `lost-selection-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode lost-selection-mode boundp] 6)#@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!\203r\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 (#$ . 19919)])#@10 (fn N) (defalias 'xselect--int-to-cons #[257 "\300\301\"\302\303\"B\207" [ash -16 logand 65535] 5 (#$ . 20487)])#@64 (fn TYPE STR &optional CAN-MODIFY PREFER-STRING-TO-C-STRING) (defalias 'xselect--encode-string #[1026 "\2052\204\n\207\206 \211\203\303!\262\304\204$\305\306O\262\307\305G\310$\210\311=\203\217\312\313!\203?\314\262\202\217\315!\204K\316\262\202\217\306C\306C\306C\317\320\321$\"\210\242\204t\242\203x\203x\322\323\"\324=\203x\325\202\213\242\203\201\314\202\213\211\242\203\212\316\202\213\326\262\266\314=\204\233\327=\203\263\211\203\247\330!\331=\204\252\331\262\332\"\262\202\333\267\202\211\203\305\330!\334=\204\310\335\262\332\"\262\202\211\203\335\330!\334=\204\340\336\262\332\"\262\202\211\203\365\330!\337=\204\370\340\262\332\"\262\202\315!\203\332\341\"\262\202\342\343\"\210)\210\344\345\346#\262\306\211\203/\316=\203/\326\2020B\207" [next-selection-coding-system selection-coding-system 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 make-closure #[257 "\211\303Y\205\211\304W\203\302\305\240\207\211\306W\203\301\305\240\207\300\305\240\207" [V0 V1 V2 256 1114112 t 4194176] 3 "\n\n(fn X)"] coding-system-get :mime-charset x-ctext COMPOUND_TEXT STRING text/plain\;charset=utf-8 coding-system-type utf-8 encode-coding-string #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (STRING 185 text/plain 209 COMPOUND_TEXT 233 C_STRING 257)) charset iso-8859-1 ascii iso-2022 compound-text-with-extensions raw-text-unix error "Unknown selection type: %S" string-replace "" "\\0"] 14 (#$ . 20609)])#@29 (fn SELECTION TYPE VALUE) (defalias 'xselect-convert-to-string #[771 "\211;\203 \211\202.\300!\211\262\205.r\3018q\210\211@eY\205-\211A@dX\205-\211@A@{)\211\2057\302\303#\207" [xselect--selection-bounds 2 xselect--encode-string t] 8 (#$ . 22279)])#@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 (#$ . 22546)])#@29 (fn SELECTION TYPE VALUE) (defalias 'xselect-convert-to-targets #[771 "\302=\203\303\304\305\306\"\"\207\303\304\307\310\311\312\313\305\314\315\n # \"\"BB!\"\207" [x-dnd-targets-list selection-converter-alist XdndSelection apply vector mapcar intern delete-dups TIMESTAMP MULTIPLE delq _EMACS_INTERNAL make-closure #[257 "\211A:\203\211A@\301@\300#\203\211@\207\302\207" [V0 V1 _EMACS_INTERNAL] 5 "\n\n(fn CONV)"]] 15 (#$ . 22771)])#@29 (fn SELECTION TYPE VALUE) (defalias 'xselect-convert-to-delete #[771 "\300=\204 \301\302\"\210\303\207" [XdndSelection gui-backend-set-selection nil NULL] 6 (#$ . 23223)])#@29 (fn SELECTION TYPE VALUE) (defalias 'xselect-convert-to-filename #[771 "\302=\204\303!\211\262\205y\304\305\306\3078!\"\207\211;\2030\310!\2030\311\312\313!\206- \"B\207\314!\205y\315\316\317\"r\211q\210\320\321\"\216\322\323T\262GW\203_H\262\313!\324\261\210\202E\266`\325V\203k\326\322!\210\311\312\327 \206t \"*B\262\207" [file-name-coding-system default-file-name-coding-system XdndSelection xselect--selection-bounds xselect--encode-string TEXT buffer-file-name 2 file-exists-p STRING encode-coding-string expand-file-name vectorp generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] -1 nil "" 1 delete-char buffer-string] 8 (#$ . 23405)])#@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 (#$ . 24149)])#@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 (#$ . 24378)])#@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 (#$ . 24645)])#@28 (fn SELECTION TYPE SIZE) (defalias 'xselect-convert-to-os #[771 "\301\302\303!\"\207" [system-type xselect--encode-string TEXT symbol-name] 7 (#$ . 24897)])#@28 (fn SELECTION TYPE SIZE) (defalias 'xselect-convert-to-host #[771 "\300\301\302 \"\207" [xselect--encode-string TEXT system-name] 6 (#$ . 25062)])#@28 (fn SELECTION TYPE SIZE) (defalias 'xselect-convert-to-user #[771 "\300\301\302 \"\207" [xselect--encode-string TEXT user-full-name] 6 (#$ . 25216)])#@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 (#$ . 25373)])#@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 (#$ . 25554)])#@29 (fn SELECTION TYPE VALUE) (defalias 'xselect-convert-to-integer #[771 "\211\250\205\300!\207" [xselect--int-to-cons] 5 (#$ . 25733)])#@29 (fn SELECTION TYPE VALUE) (defalias 'xselect-convert-to-atom #[771 "\2119\205\211\207" [] 4 (#$ . 25877)])#@29 (fn SELECTION TYPE VALUE) (defalias 'xselect-convert-to-identity #[771 "\300!\207" [vector] 5 (#$ . 25993)])#@29 (fn SELECTION TYPE VALUE) (defalias 'xselect-convert-to-save-targets #[771 "\300=\205\301\207" [CLIPBOARD NULL] 5 (#$ . 26110)])#@29 (fn SELECTION TYPE VALUE) (defalias 'xselect-convert-to-username #[771 "\300 \207" [user-real-login-name] 4 (#$ . 26249)])#@29 (fn SELECTION TYPE VALUE) (defalias 'xselect-convert-to-text-uri-list #[771 "\300=\205V\211;\203\301\302\303!\304P\"\202P\305!\205P\306\307\310\"r\211q\210\311\312\"\216\313\314T\262GW\203FH\262\303!c\210\304c\210\202+\266\301\302\315 \"*\262\316AB\262\207" [XdndSelection xselect--encode-string TEXT url-encode-url "\n" vectorp generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] -1 nil buffer-string text/uri-list] 8 (#$ . 26379)])#@29 (fn SELECTION TYPE VALUE) (defalias 'xselect-convert-to-xm-file #[771 "\211;\205\300!\205\301=\205\302\303\304P\"\207" [file-exists-p XdndSelection xselect--encode-string C_STRING [0]] 7 (#$ . 26903)])#@166 Return non-nil if `text/uri-list' is a valid target for SELECTION. Return nil otherwise. VALUE is the local selection value of SELECTION. (fn SELECTION TYPE VALUE) (defalias 'xselect-uri-list-available-p #[771 "\300=\205\211;\206\301!\207" [XdndSelection vectorp] 5 (#$ . 27122)])#@29 (fn SELECTION TYPE VALUE) (defalias 'xselect-convert-xm-special #[771 "\300\207" [""] 4 (#$ . 27415)])#@159 Return non-nil if `_DT_NETFILE' is a valid target for SELECTION. Return nil otherwise. VALUE is SELECTION's local selection value. (fn SELECTION TYPE VALUE) (defalias 'xselect-dt-netfile-available-p #[771 "\300=\205\211;\205\301!\205\302!?\207" [XdndSelection file-exists-p file-remote-p] 5 (#$ . 27526)])#@150 Return non-nil if TYPE is a valid target for SELECTION. Return nil otherwise. VALUE is SELECTION's local selection value. (fn SELECTION TYPE VALUE) (defalias 'xselect-dnd-target-available-p #[771 "\300=\207" [XdndSelection] 5 (#$ . 27848)])#@410 Get the canonical ToolTalk filename for FILE. FILE must be a local file, or otherwise the conversion will fail. The string returned has three components: the hostname of the machine where the file is, the real path, and the local path. They are encoded into a string of the form "HOST=0-X,RPATH=X-Y,LPATH=Y-Z:DATA", where X, Y, and Z are the positions of the hostname, rpath and lpath inside DATA. (fn FILE) (defalias 'xselect-tt-net-file #[257 "\300 \301\302GSGGG\\SGG\\GG\\G\\S \211& \207" [system-name format "HOST=0-%d,RPATH=%d-%d,LPATH=%d-%d:%s%s%s"] 12 (#$ . 28097)])#@111 Convert SELECTION to a ToolTalk filename. VALUE should be SELECTION's local value. (fn SELECTION TYPE VALUE) (defalias 'xselect-convert-to-dt-netfile #[771 "\302=\205/\211;\205/\303!\205/\304!?\205/\305\206 \"\306\305\307!\206* \310#B\262\207" [file-name-coding-system default-file-name-coding-system XdndSelection file-exists-p file-remote-p encode-coding-string STRING xselect-tt-net-file t] 9 (#$ . 28695)]) (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) (text/plain . xselect-convert-to-string) (text/plain\;charset=utf-8 . xselect-convert-to-string) (text/uri-list xselect-uri-list-available-p . xselect-convert-to-text-uri-list) (text/x-xdnd-username xselect-dnd-target-available-p . xselect-convert-to-username) (FILE xselect-uri-list-available-p . xselect-convert-to-xm-file) (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) (XmTRANSFER_SUCCESS xselect-dnd-target-available-p . xselect-convert-xm-special) (XmTRANSFER_FAILURE xselect-dnd-target-available-p . xselect-convert-xm-special) (_DT_NETFILE xselect-dt-netfile-available-p . xselect-convert-to-dt-netfile)) provide select] 2)