;ELC ;;; compiled by jwz@thalidomide on Wed Feb 9 21:50:06 1994 ;;; from file /th/jwz/emacs19/lisp/x11/xselect.el ;;; emacs version 19.10 Lucid (beta2). ;;; bytecomp version 2.22; 22-dec-93. ;;; 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 "This file was compiled for Emacs 19.")) (byte-code "!!" [make-face primary-selection secondary-selection] 2) (fset 'x-get-selection #[nil "\"" [x-get-selection-internal PRIMARY STRING] 3 "\ Return text selected from some X window."]) (fset 'x-get-secondary-selection #[nil "\"" [x-get-selection-internal SECONDARY STRING] 3 "\ Return text selected from some X window."]) (fset 'x-get-clipboard #[nil "\"" [x-get-selection-internal CLIPBOARD STRING] 3 "\ Return text pasted to the clipboard."]) (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 'x-select-make-extent-for-selection #[(selection previous-extent face) "\n!\n!\n!! ; : @ A^ @ A] @!\n!= @! ! ! ! !\n!= ! D\"я??\n # #\n#\n\"\n\"\nC \n#\n," [nil extentp previous-extent extent-buffer buffer-name end start valid buffer selection marker-buffer extent-start-position extent-end-position signal error "invalid selection" (byte-code "<\"!" [previous-extent mapcar delete-extent] 3) ((error)) set-extent-endpoints make-extent set-extent-property end-open set-extent-priority mouse-highlight-priority set-extent-face face mouse-track-rectangle-p mouse-track-next-move-rect] 4]) (fset 'x-own-selection #[(selection &optional type) ";!:@!A!@!A!@!A!=@!!A!!D\"\"= # =#=:" [selection extentp markerp marker-buffer buffer-name signal error "invalid selection" type PRIMARY x-own-selection-internal x-select-make-extent-for-selection primary-selection-extent primary-selection SECONDARY secondary-selection-extent secondary-selection zmacs-regions t zmacs-region-stays] 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 between the extent's endpoints." (byte-code "!C ! !BC" [current-prefix-arg read-string "Store text for pasting: " copy-marker point-marker mark-marker] 3)]) (fset '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)]) (fset 'x-own-clipboard #[(string) " \"" [x-own-selection string CLIPBOARD] 3 "\ Paste the given string to the X Clipboard."]) (fset 'x-disown-selection #[(&optional secondary-p) " ª!" [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."]) (fset 'x-dehilight-selection #[(selection) "=\n\n:\n\"\n!) =  : \" ! )LJ" [selection PRIMARY primary-selection-extent t inhibit-quit mapcar delete-extent nil zmacs-regions zmacs-deactivate-region SECONDARY secondary-selection-extent] 3 "\ for use as a value of x-lost-selection-hooks."]) (byte-code "" [x-dehilight-selection x-lost-selection-hooks] 1) (fset 'x-notice-selection-requests #[(selection type successful) " # #" [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."]) (fset '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."]) (byte-code "MM" [xselect-kill-buffer-hook #[nil "!!!" [xselect-kill-buffer-hook-1 PRIMARY SECONDARY CLIPBOARD] 2] xselect-kill-buffer-hook-1 #[(selection) " ! \" : @!p @!= !p != !)" [nil value x-selection-owner-p selection x-get-selection-internal _EMACS_INTERNAL markerp marker-buffer extentp extent-buffer x-disown-selection-internal] 3]] 2) (fset 'x-get-cutbuffer #[(&optional which-one) " H!" [x-get-cutbuffer-internal which-one [CUT_BUFFER0 CUT_BUFFER1 CUT_BUFFER2 CUT_BUFFER3 CUT_BUFFER4 CUT_BUFFER5 CUT_BUFFER6 CUT_BUFFER7] CUT_BUFFER0] 3 "\ Returns the value of one of the 8 X server cut-buffers. Optional arg WHICH-ONE should be a number from 0 to 7, defaulting to 0. Cut buffers are considered obsolete; you should use selections instead."]) (fset 'x-store-cutbuffer #[(string) ";!!\"" [string error "must be a string" x-rotate-cutbuffers-internal 1 x-store-cutbuffer-internal CUT_BUFFER0] 3 "\ Store the given string into the X server's primary cut buffer. The previous value of the primary cut buffer is rotated to the secondary cut buffer, and the second to the third, and so on (there are 8 buffers.) Cut buffers are considered obsolete; you should use selections instead."]) (fset 'x-cut-copy-clear-internal #[(mode) ">\" !!Ɖ\n   : @! @! !@!\n ! ! !\n q>  \n\"#! \n\":>@!>  \n\" \n|!-" [mode (cut copy clear) error "unkown mode %S" x-selection-owner-p "emacs does not own the primary selection" nil last-command primary-selection-extent "the primary selection is not an extent?" e s b rect-p t extent-buffer extent-start-position extent-end-position reverse (cut copy) extract-rectangle killed-rectangle kill-new mapconcat identity "\n" copy-region-as-kill kill-hooks x-own-clipboard kill-ring (cut clear) delete-rectangle x-disown-selection] 5]) (fset 'x-copy-primary-selection #[nil "!" [x-cut-copy-clear-internal copy] 2 "\ Copy the selection to the Clipboard and the kill ring." nil]) (fset 'x-kill-primary-selection #[nil "!" [x-cut-copy-clear-internal cut] 2 "\ Copy the selection to the Clipboard and the kill ring, then delete it." "*"]) (fset 'x-delete-primary-selection #[nil "!" [x-cut-copy-clear-internal clear] 2 "\ Delete the selection without copying it to the Clipboard or the kill ring." "*"]) (fset 'x-yank-clipboard-selection #[nil " ! c)" [nil last-command x-get-clipboard clip error "there is no clipboard selection" push-mark] 3 "\ Insert the current Clipboard selection at point." "*"]) (byte-code "MMMMMMMMMMMMMMMMM#MM#\"#!" [xselect-convert-to-string #[(selection type value) ";!!q!!{):@!A!@!A!=@AE\"@!!q@A{)ˇ" [value extentp extent-buffer extent-start-position extent-end-position markerp marker-buffer signal error "markers must be in the same buffer" "selection is in a killed buffer" nil] 5] xselect-convert-to-length #[(selection type value) ";G!!:@!A!@!A!=@AE\"@AZ!\"\"B)" [value extentp extent-length markerp marker-buffer signal error "markers must be in the same buffer" abs ash -16 logand 65535] 6] xselect-convert-to-targets #[(selection type value) " \"B @ A> @ A\"k A@= AA\\ AY \"*" [TIMESTAMP mapcar car selection-converter-alist all rest delq _EMACS_INTERNAL apply vector] 5] xselect-convert-to-delete #[(selection type value) " !‡" [x-disown-selection-internal selection NULL] 2] xselect-convert-to-filename #[(selection type value) " ! !!! : @! A! @!!!ȇ" [extentp value buffer-file-name extent-buffer error "selection is in a killed buffer" markerp marker-buffer nil] 3] xselect-convert-to-charpos #[(selection type value) " ! ! ! : @! A! @ A S\nS W \n  \" \"B\n\"\n\"B\"B+" [nil tmp b a extentp value extent-start-position extent-end-position markerp SPAN vector ash -16 logand 65535] 8] xselect-convert-to-lineno #[(selection type value) "!!!!:@!A!@!A!@!\nq~ by`\"T by`\"T* W    \" \"B \" \"B\"B," [nil tmp buf b a extentp value extent-buffer extent-start-position extent-end-position markerp marker-position marker-buffer 0 count-lines 1 SPAN vector ash -16 logand 65535] 7] xselect-convert-to-colno #[(selection type value) "!!!!:@!A!@A !\nq bi bi) W    \" \"B \" \"B\"B," [nil tmp buf b a extentp value extent-buffer extent-start-position extent-end-position markerp marker-buffer SPAN vector ash -16 logand 65535] 7] xselect-convert-to-sourceloc #[(selection type value) "!!!!! !:@!A!@!A!@!! ! q~ by`\"T by`\"T* W   \n #-" [nil tmp file-name buf b a extentp value extent-buffer error "selection is in a killed buffer" extent-start-position extent-end-position buffer-file-name markerp marker-position marker-buffer 0 count-lines 1 format "%s:%d"] 5] xselect-convert-to-os #[(selection type size) " !" [symbol-name system-type] 2] xselect-convert-to-host #[(selection type size) " " [system-name] 1] xselect-convert-to-user #[(selection type size) " " [user-full-name] 1] xselect-convert-to-class (lambda (selection type size) x-emacs-application-class) xselect-convert-to-name (lambda (selection type size) invocation-name) xselect-convert-to-integer #[(selection type value) "\"\"B" [value ash -16 logand 65535] 4] xselect-convert-to-atom #[(selection type value) "9" [value] 1] xselect-convert-to-identity #[(selection type value) " !" [vector value] 2] ((TEXT . xselect-convert-to-string) (STRING . xselect-convert-to-string) (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) (SOURCE_LOC . xselect-convert-to-sourceloc) (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) (_EMACS_INTERNAL . xselect-convert-to-identity)) selection-converter-alist xselect-convert-to-ttprocid #[(selection type value) "  \" ! *" [create-tooltalk-message msg get-tooltalk-message-attribute sender ttprocid destroy-tooltalk-message] 3] xselect-convert-to-ttsession #[(selection type value) "  \" ! *" [create-tooltalk-message msg get-tooltalk-message-attribute session ttsession destroy-tooltalk-message] 3] append ((SPRO_PROCID . xselect-convert-to-ttprocid) (SPRO_SESSION . xselect-convert-to-ttsession)) provide xselect] 3)