From: Po Lu <luangruo@yahoo.com>
Date: Sat, 13 Aug 2022 09:49:31 +0000 (+0800)
Subject: Prevent selection converter from signalling if buffer is narrowed
X-Git-Tag: emacs-29.0.90~1447^2~198
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f937a0f3f8b387cf8668e16c677860d5f707144f;p=emacs.git

Prevent selection converter from signalling if buffer is narrowed

* lisp/select.el (xselect-convert-to-string): If positions are
outside the accessible portion of the buffer, don't return
anything.
---

diff --git a/lisp/select.el b/lisp/select.el
index e407c224367..5b9cca80a38 100644
--- a/lisp/select.el
+++ b/lisp/select.el
@@ -673,9 +673,12 @@ two markers or an overlay.  Otherwise, it is nil."
   (let ((str (cond ((stringp value) value)
 		   ((setq value (xselect--selection-bounds value))
 		    (with-current-buffer (nth 2 value)
-		      (buffer-substring (nth 0 value)
-					(nth 1 value)))))))
-    (xselect--encode-string type str t)))
+                      (when (and (>= (nth 0 value) (point-min))
+                                 (<= (nth 1 value) (point-max)))
+		        (buffer-substring (nth 0 value)
+                                          (nth 1 value))))))))
+    (when str
+      (xselect--encode-string type str t))))
 
 (defun xselect-convert-to-length (_selection _type value)
   (let ((len (cond ((stringp value)