;;; compiled by jimb@geech.gnu.ai.mit.edu on Sat May 15 21:57:04 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/lselect.el ;;; emacs version 19.5.19. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (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) (defalias 'x-get-secondary-selection #[nil "ÀÁÂ\"‡" [x-get-selection-internal SECONDARY STRING] 3 "\ Return text selected from some X window."]) (defvar primary-selection-extent nil "\ The extent of the primary selection; don't use this.") (defvar secondary-selection-extent nil "\ The extent of the secondary selection; don't use this.") (fset (quote 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]) (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 "\ 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." (byte-code "„ ÁÂ!C‡ÃÄ !ÃÅ !BC‡" [current-prefix-arg read-string "Store text for pasting: " copy-marker point-marker mark-marker] 3)]) (defalias 'x-own-secondary-selection #[(selection &optional type) "À Â\"‡" [x-own-selection selection SECONDARY] 3 "\ 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.)" (byte-code "„ ÁÂ!C‡ÃÄ !ÃÅ !BC‡" [current-prefix-arg read-string "Store text for pasting: " copy-marker point-marker mark-marker] 3)]) (defalias 'x-own-clipboard #[(string) "À Â\"‡" [x-own-selection string CLIPBOARD] 3 "\ Paste the given string to the X Clipboard."]) (defalias 'x-disown-selection #[(&optional secondary-p) "À ƒ ‚\nÃ!‡" [x-disown-selection-internal secondary-p SECONDARY PRIMARY] 2 "\ Assuming we own the selection, disown it. With an argument, discard the secondary selection instead of the primary selection."]) (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 "\ for use as a value of x-lost-selection-hooks."]) (byte-code "ÀÀ‡" [x-dehilight-selection x-lost-selection-hooks] 1) (defalias 'x-notice-selection-requests #[(selection type successful) "„\nÁ #‡ÁÅ #‡" [successful message "Selection request failed to convert %s to %s" selection type "Sent selection %s as %s"] 4 "\ for possible use as the value of x-sent-selection-hooks."]) (defalias 'x-notice-selection-failures #[(selection type successful) "† Á #‡" [successful message "Selection request failed to convert %s to %s" selection type] 4 "\ for possible use as the value of x-sent-selection-hooks."]) (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 "\ If there is a selection, delete the text it covers, and copy it to both the kill ring and the Clipboard." nil]) (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 delete-region extent-start-position extent-end-position x-disown-selection] 4 "\ If there is a selection, delete the text it covers *without* copying it to the kill ring or the Clipboard." nil]) (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 "\ If there is a selection, copy it to both the kill ring and the Clipboard." nil]) (defalias 'x-yank-clipboard-selection #[nil "À ‰„ ÄÅ!ˆÆ ˆ c)‡" [nil last-command x-get-clipboard clip error "there is no clipboard selection" push-mark] 3 "\ If someone owns a Clipboard selection, insert it at point." nil])