;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:45:19 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/lselect.el ;;; emacs version 19.28.90.26. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/gd/gnu/emacs/19.0/lisp/lselect.el' was compiled for Emacs 19")) (byte-code "ÀÁÂ\"ˆÀÃÄ\"ˆÅÆ!„ÇÆ!ˆÅÈ!„ÇÈ!ˆÀ‡" [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 "ÀÁÂ\"‡" [x-get-selection-internal SECONDARY STRING] 3 (#$ . 671)]) #@54 The extent of the primary selection; don't use this. (defvar primary-selection-extent nil (#$ . 829)) #@56 The extent of the secondary selection; don't use this. (defvar secondary-selection-extent nil (#$ . 937)) (defalias 'x-select-make-extent-for-selection #[(selection previous-extent face) "ÀÁ\n!…Ã\n!…ÄÃ\n!!À‰ ;ƒ'À‚ :ƒX @ A^ @ A]…LÊ @!Ã\n!=Ê @!‚Á !ƒË !Ì !…wà !Ã\n!=à !„œÁ\n!ƒœÃ\n!ƒœÄÃ\n!!ƒœÍ\n!ˆ??…ă±Î\n #‚ÄÏ #Ð\n\"ˆÒ\n\",‡" [nil extentp previous-extent extent-buffer buffer-name end start valid buffer selection marker-buffer extent-start-position extent-end-position delete-extent set-extent-endpoints make-extent set-extent-priority mouse-highlight-priority set-extent-face 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) "„Á \"ˆÁ=ƒÄ Æ#‚(Ç=ƒ(Ä É# ‡" [type PRIMARY x-set-selection selection x-select-make-extent-for-selection primary-selection-extent primary-selection SECONDARY secondary-selection-extent secondary-selection] 4 (#$ . 1608) (byte-code "„ ÁÂ!C‡ÃÄ !ÃÅ !BC‡" [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) "À Â\"‡" [x-own-selection selection SECONDARY] 3 (#$ . 2283) (byte-code "„ ÁÂ!C‡ÃÄ !ÃÅ !BC‡" [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) "À Â\"‡" [x-own-selection string CLIPBOARD] 3 (#$ . 2742)]) #@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) "À ƒ ‚\nÃ!‡" [x-disown-selection-internal secondary-p SECONDARY PRIMARY] 2 (#$ . 2890)]) #@47 for use as a value of x-lost-selection-hooks. (defalias 'x-dehilight-selection #[(selection) "Á=ƒ\nƒÃÅ\n!ˆÆ)ƒ4È ˆ‚4É=ƒ4\nƒ4ÃÅ\n!ˆÆ\n)Ƈ" [selection PRIMARY primary-selection-extent t inhibit-quit delete-extent nil zmacs-regions zmacs-deactivate-region SECONDARY secondary-selection-extent] 2 (#$ . 3171)]) (byte-code "ÀÀ‡" [x-dehilight-selection x-lost-selection-hooks] 1) #@58 for possible use as the value of x-sent-selection-hooks. (defalias 'x-notice-selection-requests #[(selection type successful) "„\nÁ \f#‡ÁÅ \f#‡" [successful message "Selection request failed to convert %s to %s" selection type "Sent selection %s as %s"] 4 (#$ . 3569)]) #@58 for possible use as the value of x-sent-selection-hooks. (defalias 'x-notice-selection-failures #[(selection type successful) "† Á \f#‡" [successful message "Selection request failed to convert %s to %s" selection type] 4 (#$ . 3848)]) #@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 "À „ ÁÂ!ˆÃ „ÁÆ!ˆŠÇ !qˆÈÉ !Ê !\"ˆ)ËÃ!‡" [x-selection-owner-p error "emacs does not own the primary selection" nil last-command primary-selection-extent "the primary selection is not an extent?" extent-buffer kill-region extent-start-position extent-end-position x-disown-selection] 4 (#$ . 4094) 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 "À „ ÁÂ!ˆÃ „ÁÆ!ˆŠÇ !qˆÈ !É !|ˆ)ÊÃ!‡" [x-selection-owner-p error "emacs does not own the primary selection" nil last-command primary-selection-extent "the primary selection is not an extent?" extent-buffer extent-start-position extent-end-position x-disown-selection] 3 (#$ . 4554) nil]) #@75 If there is a selection, copy it to both the kill ring and the Clipboard. (defalias 'x-copy-primary-selection #[nil "À „ ÃÄ!ˆ „ÃÆ!ˆŠÇ !qˆÈÉ !Ê !\")‡" [nil last-command x-selection-owner-p error "emacs does not own the primary selection" primary-selection-extent "the primary selection is not an extent?" extent-buffer copy-region-as-kill extent-start-position extent-end-position] 4 (#$ . 5002) nil]) #@60 If someone owns a Clipboard selection, insert it at point. (defalias 'x-yank-clipboard-selection #[nil "À ‰„ ÄÅ!ˆÆ ˆ c)‡" [nil last-command x-get-clipboard clip error "there is no clipboard selection" push-mark] 3 (#$ . 5414) nil])