From: Po Lu <luangruo@yahoo.com>
Date: Fri, 14 Mar 2025 07:52:59 +0000 (+0800)
Subject: Enable yanking non-Latin-1 primary selections in I-Search
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dd606cabcf62b4815d1c687fb99e56d348abcea3;p=emacs.git

Enable yanking non-Latin-1 primary selections in I-Search

* lisp/isearch.el (isearch-yank-x-selection): Call
`gui-get-primary-selection', which accounts for non-Latin-1
encodings.

(cherry picked from commit 1437fc2bca2e42cd2a28754bbb4d9ac1403b87b7)
---

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 39dac326da5..dbc73006941 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -2625,9 +2625,9 @@ always reads a string from the `kill-ring' using the minibuffer."
     (isearch-yank-string (current-kill 1)))))
 
 (defun isearch-yank-x-selection ()
-  "Pull current X selection into search string."
+  "Pull current X primary selection into search string."
   (interactive)
-  (isearch-yank-string (gui-get-selection))
+  (isearch-yank-string (gui-get-primary-selection))
   ;; If `gui-get-selection' returned the text from the active region,
   ;; then it "used" the mark which we should hence deactivate.
   (when select-active-regions (deactivate-mark)))