From: Po Lu <luangruo@yahoo.com>
Date: Mon, 7 Mar 2022 05:09:07 +0000 (+0800)
Subject: Fix maximum selection size reporting
X-Git-Tag: emacs-29.0.90~1978
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=03b07fd62e831df2425676005bd962fef81ffc1d;p=emacs.git

Fix maximum selection size reporting

* src/xselect.c (selection_quantum): Take into account extended
request size.
---

diff --git a/src/xselect.c b/src/xselect.c
index 979f4549488..a88c15aa95b 100644
--- a/src/xselect.c
+++ b/src/xselect.c
@@ -98,7 +98,11 @@ static void lisp_data_to_selection_data (struct x_display_info *, Lisp_Object,
 static int
 selection_quantum (Display *display)
 {
-  long mrs = XMaxRequestSize (display);
+  long mrs = XExtendedMaxRequestSize (display);
+
+  if (!mrs)
+    mrs = XMaxRequestSize (display);
+
   return (mrs < MAX_SELECTION_QUANTUM / X_LONG_SIZE + 25
 	  ? (mrs - 25) * X_LONG_SIZE
 	  : MAX_SELECTION_QUANTUM);