[COMMIT] Fabrice Popineau's select fix for win32
NOTE: This patch has been committed.
Tested and working under X11--thank you for the fix, Fabrice!
lisp/ChangeLog addition:
2005-03-12 Fabrice Popineau <Fabrice.Popineau(a)supelec.fr>
* select.el (get-selection): As described in
u0nj9nvq.fsf(a)esemetz.metz.supelec.fr , get-selection-internal
returns nil instead of signalling a selection-conversion
error on win32. Also, Aidan had a logic error while traversing a
list.
XEmacs Trunk source patch:
Diff command: cvs -q diff -u
Files affected: lisp/select.el
Index: lisp/select.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/select.el,v
retrieving revision 1.14
diff -u -u -r1.14 select.el
--- lisp/select.el 2005/03/01 00:21:18 1.14
+++ lisp/select.el 2005/03/12 20:54:02
＠＠ -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)))
--
“I, for instance, am gung-ho about open source because my family is being
held hostage in Rob Malda’s basement. But who fact-checks me, or Enderle,
when we say something in public? No-one!” -- Danny O’Brien