;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Tue May 3 21:53:45 1994 ;;; from file /gd/gnu/emacs/19.0/lisp/select.el ;;; emacs version 19.22.92.2. ;;; 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/select.el' was compiled for Emacs 19")) (defalias (quote x-selection) (quote x-get-selection)) (defalias 'x-get-selection #[(&optional type data-type) "À † † Ä\"‡" [x-get-selection-internal type PRIMARY data-type STRING] 3 "\ Return the value of an X Windows selection. The argument TYPE (default `PRIMARY') says which selection, and the argument DATA-TYPE (default `STRING') says how to convert the data."]) (defalias 'x-get-clipboard #[nil "ÀÁÂ\"‡" [x-get-selection-internal CLIPBOARD STRING] 3 "\ Return text pasted to the clipboard."]) (defalias 'x-set-selection #[(type data) ";ƒ Á! !„FÄ !ƒ?Å GSÈYƒ9 H!„0ÉS‰‚*„FÊËÌ D\"ˆ„LÍ ƒXÎ \"ˆ‚\\Ï!ˆ ‡" [type intern x-valid-simple-selection-p data vectorp t i valid 0 nil signal error "invalid selection" PRIMARY x-own-selection-internal x-disown-selection-internal] 5 "\ Make an X Windows selection of type TYPE and value DATA. The argument TYPE (default `PRIMARY') says which selection, and DATA specifies the contents. DATA may be a string, a symbol, an integer (or a cons of two integers or list of two integers), or a cons of two markers pointing to the same buffer. In the last case, the selection is considered to be the text between the markers. The data may also be a vector of valid non-vector selection values." (byte-code "„ ÁÂ!C‡ÃÄ !ÃÅ !BC‡" [current-prefix-arg read-string "Store text for pasting: " copy-marker point-marker mark-marker] 3)]) (defalias (quote x-valid-simple-selection-p) #[(data) ";†o9†o¨†o:ƒ-@¨ƒ-A¨†oA:ƒ-A@¨†oÁ!†o:…oÂ@!…oÂA!…oÃ@!…oÃA!…oÃ@!ÃA!=…oÄÃ@!!…oÄÃA!!‡" [data overlayp markerp marker-buffer buffer-name] 3]) (defalias 'x-get-cut-buffer #[(&optional which-one) "À ƒ  H‚\fÃ!‡" [x-get-cut-buffer-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."]) (defalias 'x-set-cut-buffer #[(string &optional push) "ƒÁÂ!ˆÃÄ \"‡" [push x-rotate-cut-buffers-internal 1 x-store-cut-buffer-internal CUT_BUFFER0 string] 3 "\ Store STRING into the X server's primary cut buffer. If PUSH is non-nil, also rotate the cut buffers: this means the previous value of the primary cut buffer moves the second 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."]) (byte-code "ÀÁÂ\"ˆÀÃÄ\"ˆÀÅÆ\"ˆÀÇÈ\"ˆÀÉÊ\"ˆÀËÌ\"ˆÀÍÎ\"ˆÀÏÐ\"ˆÀÑÒ\"ˆÀÓÔ\"ˆÀÕÖ\"‡" [defalias xselect-convert-to-string #[(selection type value) ";ƒ‡Á!ƒ(ŠÂÃ!!„ÄÅ!ˆÃ!qˆÆ!Ç!{)‡:ƒeÈ@!ƒeÈA!ƒeÉ@!ÉA!=„QÊÄË@AE\"ˆŠÉ@!†\\ÄÅ!qˆ@A{)‡Ì‡" [value overlayp buffer-name overlay-buffer error "selection is in a killed buffer" overlay-start overlay-end markerp marker-buffer signal "markers must be in the same buffer" nil] 5] xselect-convert-to-length #[(selection type value) ";ƒ\nG‚LÁ!ƒÂÃ!Ä!Z!‚L:…LÅ@!…LÅA!…LÆ@!ÆA!=„EÇÈÉ@AE\"ˆÂ@AZ!‰…ZÊË\"ÌÍ\"B)‡" [value overlayp abs overlay-end overlay-start markerp marker-buffer signal error "markers must be in the same buffer" ash -16 logand 65535] 6] xselect-convert-to-targets #[(selection type value) "ÀÁ \"B‰ ƒ9 @ A>ƒ! Æ @ A\"¡ˆ‚ A@Ç=ƒ2 ‰AA¡ˆ‚ A‰„ ÈÉ\f\"*‡" [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) "À !ƒÂà !†ÄÅ!!‡ :ƒ2Æ @!ƒ2Æ A!ƒ2ÂÇ @!†0ÄÅ!!‡È‡" [overlayp value buffer-file-name overlay-buffer error "selection is in a killed buffer" markerp marker-buffer nil] 3] xselect-convert-to-charpos #[(selection type value) "À‰‰Ä !ƒÆ !Ç !‰‚2 :…]È @!…]È A!…] @ A‰…] S\nS‰ WƒG \n ÉÊË Ì\"Í Î\"BË\nÌ\"Í\nÎ\"B\"B+‡" [nil tmp b a overlayp value overlay-start overlay-end markerp SPAN vector ash -16 logand 65535] 8] xselect-convert-to-lineno #[(selection type value) "À‰‰‰ :ƒ.Æ @!ƒ.Æ A!ƒ.Ç @!Ç A!È @!‰‚AÉ !…uÊ !Ë !Ì !‰…uŠ\nqˆÍÎ\f\"ÍÎ \") \fWƒ_\f  ÏÐÑ\fÒ\"Ó\fÔ\"BÑ Ò\"Ó Ô\"B\"B,‡" [nil tmp buf b a value markerp marker-position marker-buffer overlayp overlay-buffer overlay-start overlay-end count-lines 1 SPAN vector ash -16 logand 65535] 7] xselect-convert-to-colno #[(selection type value) "À‰‰‰ :ƒ)Æ @!ƒ)Æ A!ƒ) @ AÇ\f!‰‚<È !…pÉ !Ê !Ë !‰…pŠ\nqˆ\fbˆi bˆi) \fWƒZ\f  ÌÍÎ\fÏ\"Ð\fÑ\"BÎ Ï\"Ð Ñ\"B\"B,‡" [nil tmp buf b a value markerp marker-buffer overlayp overlay-buffer overlay-start overlay-end SPAN vector ash -16 logand 65535] 7] 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]] 3) (defun xselect-convert-to-class (selection type size) "\ Emacs") (defun xselect-convert-to-name (selection type size) "\ emacs") (byte-code "ÀÁÂ\"ˆÀÃÄ\"ˆÀÅÆ\"ˆÇÉÊ!‡" [defalias 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) (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 provide select] 3)