Mercurial > hg > xemacs-beta

comparison lisp/select.el @ 2656:0ba09d009197

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-03-12 20:57:40 by aidan] Fabrice Popineau's select fix for win32, plus a logic error on my part.
author aidan
date Sat, 12 Mar 2005 20:57:42 +0000
parents 8174a45f637c
children 4c038e89d563
comparison
equal deleted inserted replaced
2655:4769b9c268eb 2656:0ba09d009197
144 ;; and throw an error if the last one of those fails. 144 ;; and throw an error if the last one of those fails.
145 (while data-type 145 (while data-type
146 (condition-case err 146 (condition-case err
147 (progn 147 (progn
148 (setq res (get-selection-internal type (car data-type))) 148 (setq res (get-selection-internal type (car data-type)))
149 (throw 'converted res)) 149 (if res (throw 'converted res)
150 (signal 'selection-conversion-error nil)))
150 (selection-conversion-error 151 (selection-conversion-error
151 (if (cdr data-type) 152 (if (cdr data-type)
152 (setq data-type (pop data-type)) 153 (setq data-type (cdr data-type))
153 (signal (car err) (cdr err)))))))) 154 (signal (car err) (cdr err))))))))
154 (get-selection-internal type data-type))) 155 (get-selection-internal type data-type)))
155 156
156 (defun get-selection-foreign (&optional type data-type) 157 (defun get-selection-foreign (&optional type data-type)
157 "Return the value of a window-system selection, or nil if XEmacs owns it. 158 "Return the value of a window-system selection, or nil if XEmacs owns it.