;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:39:19 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/emacs-lisp/lselect.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 "`lselect.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301\302\"\210\300\303\304\"\210\305\306!\204\307\306!\210\305\310!\204\307\310!\210\300\207" [defalias x-get-cutbuffer x-get-cut-buffer x-store-cutbuffer x-set-cut-buffer find-face primary-selection make-face secondary-selection] 3) #@42 Return text selected from some X window. (defalias 'x-get-secondary-selection #[nil "\300\301\302\"\207" [x-get-selection-internal SECONDARY STRING] 3 (#$ . 881)]) #@54 The extent of the primary selection; don't use this. (defvar primary-selection-extent nil (#$ . 1051)) #@56 The extent of the secondary selection; don't use this. (defvar secondary-selection-extent nil (#$ . 1160)) (defalias 'x-select-make-extent-for-selection #[(selection previous-extent face) "\306\307!\205\310!\205\311\310!!\306\211 ;\203\"\306\202f :\203H @ A^ @ A] \205?\312 @!\310!=\312 @!\202f\307 !\203f\313 !\314 ! \205a\310 !\310!=\310 ! \204\202\307!\203\202\310!\203\202\311\310!!\203\202\315!\210\f\205\243 \203\222\316\n #\202\243\317\n \f#\320\"\210\321\",\207" [previous-extent end start valid buffer selection nil extentp extent-buffer buffer-name marker-buffer extent-start-position extent-end-position delete-extent set-extent-endpoints make-extent set-extent-priority set-extent-face mouse-highlight-priority face] 4]) #@241 Make a primary X Selection of the given argument. The argument may be a string, a cons of two markers, or an extent. In the latter cases the selection is considered to be the text between the markers, or the between extents endpoints. (defalias 'x-own-selection #[(selection &optional type) "\204\304\305 \"\210\304=\203\306 \n\307#\202&\310=\203&\306 \311# \207" [type selection primary-selection-extent secondary-selection-extent PRIMARY x-set-selection x-select-make-extent-for-selection primary-selection SECONDARY secondary-selection] 4 (#$ . 1948) (byte-code "\204 \301\302!C\207\303\304 !\303\305 !BC\207" [current-prefix-arg read-string "Store text for pasting: " copy-marker point-marker mark-marker] 3)]) #@191 Make a secondary X Selection of the given argument. The argument may be a string or a cons of two markers (in which case the selection is considered to be the text between those markers.) (defalias 'x-own-secondary-selection #[(selection &optional type) "\301\302\"\207" [selection x-own-selection SECONDARY] 3 (#$ . 2691) (byte-code "\204 \301\302!C\207\303\304 !\303\305 !BC\207" [current-prefix-arg read-string "Store text for pasting: " copy-marker point-marker mark-marker] 3)]) #@44 Paste the given string to the X Clipboard. (defalias 'x-own-clipboard #[(string) "\301\302\"\207" [string x-own-selection CLIPBOARD] 3 (#$ . 3186)]) #@128 Assuming we own the selection, disown it. With an argument, discard the secondary selection instead of the primary selection. (defalias 'x-disown-selection #[(&optional secondary-p) "\301\203 \302\202\n\303!\207" [secondary-p x-disown-selection-internal SECONDARY PRIMARY] 2 (#$ . 3343)]) #@47 for use as a value of x-lost-selection-hooks. (defalias 'x-dehilight-selection #[(selection) "\305=\203 \203\306\307 !\210\310) \2030\311 \210\2020\312=\2030\f\2030\306\307\f!\210\310)\310\207" [selection primary-selection-extent inhibit-quit zmacs-regions secondary-selection-extent PRIMARY t delete-extent nil zmacs-deactivate-region SECONDARY] 2 (#$ . 3642)]) (byte-code "\301\301\207" [x-lost-selection-hooks x-dehilight-selection] 1) #@58 for possible use as the value of x-sent-selection-hooks. (defalias 'x-notice-selection-requests #[(selection type successful) "\204\n\303\304 \n#\207\303\305 \n#\207" [successful selection type message "Selection request failed to convert %s to %s" "Sent selection %s as %s"] 4 (#$ . 4102)]) #@58 for possible use as the value of x-sent-selection-hooks. (defalias 'x-notice-selection-failures #[(selection type successful) "\206 \303\304 \n#\207" [successful selection type message "Selection request failed to convert %s to %s"] 4 (#$ . 4402)]) #@107 If there is a selection, delete the text it covers, and copy it to both the kill ring and the Clipboard. (defalias 'x-kill-primary-selection #[nil "\302 \204 \303\304!\210\305 \204\303\306!\210\212\307 !q\210\310\311 !\312 !\"\210)\313\305!\207" [last-command primary-selection-extent x-selection-owner-p error "emacs does not own the primary selection" nil "the primary selection is not an extent?" extent-buffer kill-region extent-start-position extent-end-position x-disown-selection] 4 (#$ . 4660) nil]) #@108 If there is a selection, delete the text it covers *without* copying it to the kill ring or the Clipboard. (defalias 'x-delete-primary-selection #[nil "\302 \204 \303\304!\210\305 \204\303\306!\210\212\307 !q\210\310 !\311 !|\210)\312\305!\207" [last-command primary-selection-extent x-selection-owner-p error "emacs does not own the primary selection" nil "the primary selection is not an extent?" extent-buffer extent-start-position extent-end-position x-disown-selection] 3 (#$ . 5180) nil]) #@75 If there is a selection, copy it to both the kill ring and the Clipboard. (defalias 'x-copy-primary-selection #[nil "\302\303 \204 \304\305!\210 \204\304\306!\210\212\307 !q\210\310\311 !\312 !\")\207" [last-command primary-selection-extent nil x-selection-owner-p error "emacs does not own the primary selection" "the primary selection is not an extent?" extent-buffer copy-region-as-kill extent-start-position extent-end-position] 4 (#$ . 5685) nil]) #@60 If someone owns a Clipboard selection, insert it at point. (defalias 'x-yank-clipboard-selection #[nil "\302\303 \211\204 \304\305!\210\306 \210 c)\207" [last-command clip nil x-get-clipboard error "there is no clipboard selection" push-mark] 3 (#$ . 6148) nil]) (provide 'lselect)