Mercurial > hg > xemacs-beta

comparison lisp/select.el @ 847:74899b430f18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-05-17 03:46:55 by stephent] complete the patch
author stephent
date Fri, 17 May 2002 03:46:55 +0000
parents f46864126a0d
children e7ee5f8bde58
comparison
equal deleted inserted replaced
846:7b263c3f9ec9 847:74899b430f18
109 (selection-conversion-error 109 (selection-conversion-error
110 (if (cdr data-type) 110 (if (cdr data-type)
111 (get-selection type (cdr data-type)) 111 (get-selection type (cdr data-type))
112 (signal (car err) (cdr err))))) 112 (signal (car err) (cdr err)))))
113 (get-selection-internal type data-type))) 113 (get-selection-internal type data-type)))
114
115 (defun get-selection-foreign (&optional type data-type)
116 "Return the value of a window-system selection, or nil if XEmacs owns it.
117 The argument TYPE (default `PRIMARY') says which selection,
118 and the argument DATA-TYPE (default `STRING', or `COMPOUND_TEXT' under Mule)
119 says how to convert the data. If there is no selection an error is signalled.
120 See `interprogram-paste-function' for more information."
121 (unless (selection-owner-p type)
122 (get-selection type data-type)))
114 123
115 ;; FSFmacs calls this `x-set-selection', and reverses the 124 ;; FSFmacs calls this `x-set-selection', and reverses the
116 ;; first two arguments (duh ...). This order is more logical. 125 ;; first two arguments (duh ...). This order is more logical.
117 (defun own-selection (data &optional type how-to-add data-type) 126 (defun own-selection (data &optional type how-to-add data-type)
118 "Make a window-system selection of type TYPE and value DATA. 127 "Make a window-system selection of type TYPE and value DATA.