;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\314\315%\210\316\307\317\320#\207" [custom-declare-group xclip nil "Copy&paste GUI clipboard from text terminal." :group killing custom-declare-variable xclip-select-enable-clipboard funcall function #[0 "\300\207" [t] 1] "Non-nil means cutting and pasting uses the clipboard.\nThis is in addition to, but in preference to, the primary selection." :type boolean make-obsolete select-enable-clipboard "Emacs-25"] 6) #@97 Non-nil means using pbcopy and pbpaste instead of xclip. If non-nil `xclip-program' is ignored. (defvar xclip-use-pbcopy&paste (byte-code "\301=\205 \302\303!\205 \304\207" [system-type darwin executable-find "pbcopy" t] 2) (#$ . 570)) (byte-code "\300\301\302\303#\210\304\302\305\306\307DD\310\311\312%\210\304\313\305\306\314DD\315\311\316%\207" [make-obsolete xclip-use-pbcopy&paste xclip-method "xclip-1.5" custom-declare-variable funcall function #[0 "\203\302\207 \303=\203\304\305!\203\306\207\304\307!\203\310\207\304\311!\203$\312\207\304\313!\203,\314\207\304\315!\2034\316\207\317\320!\203B\321\322!\203B\323\207\310\207" [xclip-use-pbcopy&paste system-type pbpaste cygwin executable-find "getclip" getclip "xclip" xclip "xsel" xsel "wl-copy" wl-copy "termux-clipboard-get" termux-clipboard-get fboundp x-create-frame getenv "DISPLAY" emacs] 2] "Method to use to access the GUI's clipboard.\nCan be one of `pbpaste' for MacOS, `xclip' or `xsel' for X11,\nand `getclip' under Cygwin, or `emacs' to use Emacs's GUI code for that." :type (choice (const :tag "MacOS: pbcopy/pbpaste" pbpaste) (const :tag "Cygwin: getclip/putclip" getclip) (const :tag "X11: xclip" xclip) (const :tag "X11: xsel" xsel) (const :tag "Wayland: wl-copy" wl-copy) (const :tag "Termux: termux-clipboard-get/set" termux-clipboard-get) (const :tag "X11: Emacs" emacs)) xclip-program #[0 "\301!\207" [xclip-method symbol-name] 2] "Name of the clipboard access command." string] 6) #@98 TYPE is a symbol: primary, secondary and clipboard. See also `x-set-selection'. (fn TYPE DATA) (defalias 'xclip-set-selection #[514 "\304=\203\305 p\306\307#\216\310\311 \312\"\210\313\314\"*\207\313\315\267\202\256\313\202\265\316>\205\265\317\320\313\321\322\323 \324$#\202\265\325>\205\265\317\326\313\321\327\330 \324$#\202\265\331\332!\205\265\317\333\313 \334\335!%\202\265\331\332!\205\265\336>\205\265\317\337\313 \340\341\335!\227P%\202\265\331\342!\205\265\343>\205\265\344\317\345\313 \346>\205\227\347%\202\265\350>\205\265\317\351\313\321\352\353 \324$#\202\265\354\355\"\262\211\203\302\356\"\210\357!\210)\207" [xclip-method xclip-mode process-connection-type xclip-program emacs selected-frame make-closure #[0 "\302\300!\203 \303\300\304\"\210\305\301!\205\301q\207" [V0 V1 frame-live-p select-frame norecord buffer-live-p] 3] select-frame xclip--hidden-frame norecord nil gui-backend-set-selection #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (emacs 37 pbpaste 41 getclip 60 xclip 79 xsel 98 wl-copy 126 termux-clipboard-get 155)) (clipboard CLIPBOARD) start-process "pbcopy" replace-regexp-in-string "\\(.*\\)pbpaste" "\\1pbcopy" fixedcase (clipboard CLIPBOARD) "putclip" "\\(.*\\)getclip" "\\1putclip" getenv "DISPLAY" "xclip" "-selection" symbol-name (clipboard CLIPBOARD primary PRIMARY secondary SECONDARY) "xsel" "-i" "--" "WAYLAND_DISPLAY" (clipboard CLIPBOARD primary PRIMARY) apply "wl-copy" (primary PRIMARY) ("-p") (clipboard CLIPBOARD) "termux-clipboard-set" "\\(.*\\)get" "\\1set" error "Unknown `xclip-method': %S" process-send-string process-send-eof] 10 (#$ . 2056)]) #@64 TYPE is a symbol: primary, secondary and clipboard. (fn TYPE) (defalias 'xclip-get-selection #[257 "\304=\203\305 p\306\307#\216\310\311 \312\"\210\313\314\315\"*\207\316\317\320\"\321\216\n\322\267\202\273\211\323>\203\302\324 \313\n\313\325\326&\210\202\302\211\327>\203\302\324 \313\n\313$\210\202\302\330\331!\203\302\324 \313\n\313\332\333\334!&\210\202\302\330\331!\203\302\211\335>\203\302\324 \313\n\313\332\336\334!\227P&\210\202\302\330\337!\203\302\211\340>\203\302\341\324\342\343\344 \345$\313\n\313\346\347>\205\245\350&\210\202\302\211\351>\203\302\324 \313\n\313$\210\202\302\352\353\"\266)r\nq\210\354 +\207" [xclip-method xclip-mode standard-output xclip-program emacs selected-frame make-closure #[0 "\302\300!\203 \303\300\304\"\210\305\301!\205\301q\207" [V0 V1 frame-live-p select-frame norecord buffer-live-p] 3] select-frame xclip--hidden-frame norecord nil gui-backend-get-selection STRING generate-new-buffer " *string-output*" t #[0 "\301!\207" [standard-output kill-buffer] 2] #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (pbpaste 44 getclip 63 xclip 79 xsel 102 wl-copy 133 termux-clipboard-get 171)) (clipboard CLIPBOARD) call-process "-Prefer" "txt" (clipboard CLIPBOARD) getenv "DISPLAY" "-o" "-selection" symbol-name (clipboard CLIPBOARD primary PRIMARY secondary SECONDARY) "--" "WAYLAND_DISPLAY" (clipboard CLIPBOARD primary PRIMARY) apply replace-regexp-in-string "\\(.*\\)copy" "\\1paste" fixedcase "-n" (primary PRIMARY) ("-p") (clipboard CLIPBOARD) error "Unknown `xclip-method': %S" buffer-string] 10 (#$ . 3755)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable xclip-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Xclip mode is enabled.\nSee the `xclip-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 `xclip-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean] 10) #@615 Minor mode to use the `xclip' program to copy&paste. This is a minor mode. If called interactively, toggle the `Xclip 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 'xclip-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'xclip-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\314\315!\203C\316\317\315\"\210 \203b\320\n!\204W\310\321\322\323\n\324E\"\210\314\315!\203b\325\317\315\"\210\326\327\306\301!\203n\330\202o\331\"\210\332\333!\203\227\334\301!\210\303 \203\207\211\303 \232\203\227\335\336\306\301!\203\223\337\202\224\340\341#\210\210\342 \210\306\301!\207" [global-minor-modes xclip-mode xclip-program current-message set-default toggle default-value 1 nil t boundp delq fboundp xclip--setup remove-hook terminal-init-xterm-hook executable-find signal file-error "Searching for program" "no such file" add-hook run-hooks xclip-mode-hook xclip-mode-on-hook xclip-mode-off-hook called-interactively-p any customize-mark-as-set message "Xclip mode %sabled%s" "en" "dis" "" force-mode-line-update] 7 (#$ . 5889) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar xclip-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" [xclip-mode-map xclip-mode-hook variable-documentation put "Hook run after entering or leaving `xclip-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 xclip-mode boundp] 6) (defvar xclip--hidden-frame nil) (defalias 'xclip--hidden-frame #[0 "\206\f\301\302\303!\304\"\211\207" [xclip--hidden-frame make-frame-on-display getenv "DISPLAY" ((visibility) (user-position . t) (left . 0) (top . 0) (no-other-frame . t))] 3]) (byte-code "\300\301\302\303\304\305%\210\300\306\302\307\304\310%\210\300\306\311\312\302\313%\210\314\315!\207" [cl-generic-define-method gui-backend-get-selection nil (selection-symbol _target-type &context (window-system nil)) t #[771 "\204 \207\301!\207" [xclip-mode xclip-get-selection] 5 "\n\n(fn CL--CNM SELECTION-SYMBOL TARGET-TYPE)"] gui-backend-set-selection (selection-symbol value &context (window-system nil)) #[771 "\204 \207\301\"\210\302\207" [xclip-mode xclip-set-selection nil] 6 "\n\n(fn CL--CNM SELECTION-SYMBOL VALUE)"] (:extra "xclip-override") (selection-symbol value &context (window-system nil) ((terminal-parameter nil 'xterm--set-selection) (eql t)) ((featurep 'term/xterm) (eql t))) #[514 "\300\301\302\301#\210\303\"\207" [set-terminal-parameter nil xterm--set-selection gui-backend-set-selection] 6 "\n\n(fn SELECTION-SYMBOL VALUE)"] provide xclip] 6)