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 39dac326da5ecead0bc59e106d3a3a36cca0b2e4..dbc7300694108b8b93d3ccba3612a8c968590214 100644 (file)
--- 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)))