Ben Wing <ben(a)666.com> writes:
try this patch and see if it fixes things.
Unfortunately, it's not. I think it also causes problem
under Windows.
Try this patch. I'll apply this on Monday if no one
objects.
2000-07-14 Yoshiki Hayashi <yoshiki(a)xemacs.org>
* select.c (get_local_selection): Fix argument to assq_no_quit.
2000-07-14 Yoshiki Hayashi <yoshiki(a)xemacs.org>
* select.el (selection-converter-alist): Set up converter for X.
Index: select.el
===================================================================
RCS file: /usr/CVSroot/XEmacs/xemacs/lisp/select.el,v
retrieving revision 1.5.2.9
diff -u -r1.5.2.9 select.el
--- select.el 2000/07/13 09:06:26 1.5.2.9
+++ select.el 2000/07/14 10:52:29
@@ -659,8 +659,27 @@
;; Types listed here can be selections foreign to XEmacs
(setq selection-converter-in-alist
- '((CF_TEXT . select-convert-from-cf-text)
- ))
+ '((TEXT . select-convert-to-text)
+ (STRING . select-convert-to-string)
+ (COMPOUND_TEXT . select-convert-to-compound-text)
+ (TARGETS . select-convert-to-targets)
+ (LENGTH . select-convert-to-length)
+ (DELETE . select-convert-to-delete)
+ (FILE_NAME . select-convert-to-filename)
+ (CHARACTER_POSITION . select-convert-to-charpos)
+ (SOURCE_LOC . select-convert-to-sourceloc)
+ (LINE_NUMBER . select-convert-to-lineno)
+ (COLUMN_NUMBER . select-convert-to-colno)
+ (OWNER_OS . select-convert-to-os)
+ (HOST_NAME . select-convert-to-host)
+ (USER . select-convert-to-user)
+ (CLASS . select-convert-to-class)
+ (NAME . select-convert-to-name)
+ (ATOM . select-convert-to-atom)
+ (INTEGER . select-convert-to-integer)
+ (_EMACS_INTERNAL . select-convert-to-identity)
+ ((CF_TEXT . select-convert-from-cf-text)
+ )))
;; Types listed here can be appended by own-selection
(setq selection-appender-alist
Index: select.c
===================================================================
RCS file: /usr/CVSroot/XEmacs/xemacs/src/Attic/select.c,v
retrieving revision 1.1.2.3
diff -u -r1.1.2.3 select.c
--- select.c 2000/07/13 09:06:35 1.1.2.3
+++ select.c 2000/07/14 10:52:12
@@ -132,9 +132,11 @@
return value;
/* We couldn't. Try for a generic type instead. */
- value = assq_no_quit (target_type, Qnil);
-
- return convert_selection (selection_symbol, value, target_type, 0);
+ value = assq_no_quit (Qnil, value_list);
+ if (CONSP (value))
+ value = XCDR (value);
+
+ return convert_selection (selection_symbol, value, target_type, 0);
}
return Qnil;
--
Yoshiki Hayashi