Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/select.el	Sat Mar 12 11:00:29 2005 +0000
+++ b/lisp/select.el	Sat Mar 12 20:57:42 2005 +0000
@@ -146,10 +146,11 @@
 	    (condition-case err
 		(progn
 		  (setq res (get-selection-internal type (car data-type)))
-		  (throw 'converted res))
+		  (if res (throw 'converted res) 
+		    (signal 'selection-conversion-error nil)))
 	      (selection-conversion-error
 	       (if (cdr data-type)
-		   (setq data-type (pop data-type))
+		   (setq data-type (cdr data-type))
 		 (signal (car err) (cdr err))))))))
     (get-selection-internal type data-type)))