From: Po Lu <luangruo@yahoo.com>
Date: Sat, 12 Nov 2022 07:50:43 +0000 (+0800)
Subject: Fix implementation of MULTIPLE
X-Git-Tag: emacs-29.0.90~1616^2~185
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=25c6bc7a3d3679b26406bbcac33954186db491f2;p=emacs.git

Fix implementation of MULTIPLE

* src/xselect.c (x_handle_selection_request): Make sure the type
of a reply to a MULTIPLE request is ATOM_PAIR.
---

diff --git a/src/xselect.c b/src/xselect.c
index db5c7853e7f..b897894e8e0 100644
--- a/src/xselect.c
+++ b/src/xselect.c
@@ -918,6 +918,13 @@ x_handle_selection_request (struct selection_input_event *event)
 	}
       /* Save conversion results */
       lisp_data_to_selection_data (dpyinfo, multprop, &cs);
+
+      /* If cs.type is ATOM, change it to ATOM_PAIR.  This is because
+	 the parameters to a MULTIPLE are ATOM_PAIRs.  */
+
+      if (cs.type == XA_ATOM)
+	cs.type = dpyinfo->dpyinfo->Xatom_ATOM_PAIR;
+
       XChangeProperty (dpyinfo->display, requestor, property,
 		       cs.type, cs.format, PropModeReplace,
 		       cs.data, cs.size);