;;; compiled by jimb@wookumz.gnu.ai.mit.edu on Wed May 26 23:18:44 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/select.el ;;; emacs version 19.8.0. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (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)]) (fset (quote x-valid-simple-selection-p) #[(data) ";†m9†mÁ!†m:ƒ1Á@!ƒ1ÁA!†mA:ƒ1ÁA@!†m:…mÂ@!…mÂA!…mÃ@!…mÃA!…mÃ@!ÃA!=…mÄÃ@!!…mÄÃA!!‡" [data integerp markerp marker-buffer buffer-name] 3]) (defalias 'x-get-cut-buffer #[(&optional which-one) "À ƒ  H‚ Ã!‡" [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 "ÀÁMˆÂÃMˆÄÅMˆÆÇMˆÈÉMˆÊËMˆÌÍMˆÎÏMˆÐÑMˆÒÓMˆÔÕM‡" [xselect-convert-to-string #[(selection type value) ";ƒ‡:ƒEÁ@!ƒEÁA!ƒEÂ@!ÂA!=„0ÃÄÅ@AE\"ˆŠÂ@!†;ÄÆ!qˆÇ@A\")‡È‡" [value markerp marker-buffer signal error "markers must be in the same buffer" "selection is in a killed buffer" buffer-substring nil] 5] xselect-convert-to-length #[(selection type value) ";ƒ\nG‚I:…IÁ@!…IÁA!…IÂ@!ÂA!=„3ÃÄÅ@AE\"ˆ@AZ‰ÇWƒF[‚H)‰…WÈÉ\"ÊË\"B)‡" [value markerp marker-buffer signal error "markers must be in the same buffer" number 0 ash -16 logand 65535] 6] xselect-convert-to-targets #[(selection type value) "ÀÁ \"B‰ ƒ; @ A>ƒ\"Æ Ç @ A\"\"ˆ‚ A@È=ƒ4Æ ‰AA\"ˆ‚ A‰„ ÉÊ \"*‡" [TIMESTAMP mapcar car selection-converter-alist all rest setcdr delq _EMACS_INTERNAL apply vector] 6] xselect-convert-to-delete #[(selection type value) "À !ˆÂ‡" [x-disown-selection-internal selection NULL] 2] xselect-convert-to-filename #[(selection type value) ":ƒ Á@!ƒ ÁA!ƒ ÂÃ@!†ÄÅ!!‡Æ‡" [value markerp buffer-file-name marker-buffer error "selection is in a killed buffer" nil] 3] xselect-convert-to-charpos #[(selection type value) "À‰‰ :…KÅ @!…KÅ A!…K @ A‰…K S\nS‰ Wƒ5 \n ÆÇÈ É\"Ê Ë\"BÈ\nÉ\"Ê\nË\"B\"B+‡" [nil tmp b a value markerp SPAN vector ash -16 logand 65535] 8] xselect-convert-to-lineno #[(selection type value) "À‰‰‰ :…_Æ @!…_Æ A!…_Ç @!Ç A!È @!‰…_Š\nqˆÉÊ \"ÉÊ \") WƒI   ËÌÍ Î\"Ï Ð\"BÍ Î\"Ï Ð\"B\"B,‡" [nil tmp buf b a value markerp marker-position marker-buffer count-lines 1 SPAN vector ash -16 logand 65535] 7] xselect-convert-to-colno #[(selection type value) "À‰‰‰ :…ZÆ @!…ZÆ A!…Z @ AÇ !‰…ZŠ\nqˆ bˆi bˆi) WƒD   ÈÉÊ Ë\"Ì Í\"BÊ Ë\"Ì Í\"B\"B,‡" [nil tmp buf b a value markerp marker-buffer 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]] 2) (defun xselect-convert-to-class (selection type size) "\ Emacs") (defun xselect-convert-to-name (selection type size) "\ emacs") (byte-code "ÀÁMˆÂÃMˆÄÅMˆÆÈÉ!‡" [xselect-convert-to-integer #[(selection type value) "À !… Ã\"Ä Å\"B‡" [integerp 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] 2)