(x-select-utf8-or-ctext): Use compare-strings instead of while loop.

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index 09657fb848f8f6fcf596063d104201bcfbdd4e99..4b419a57a978210287fed0d48a5466661d51e448 100644 (file)
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -2178,13 +2178,11 @@ order until succeed.")
        char)
     (if (/= len-utf8 len-ctext)
        (if (> len-utf8 len-ctext) utf8 ctext)
-      (while (< i len-utf8)
-       (setq char (aref ctext i))
-       (if (and (< char 128) (/= char (aref utf8 i)))
-           (setq selected utf8
-                 i len-utf8)
-         (setq i (1+ i))))
-      selected)))
+      (let ((result (compare-strings utf8 0 len-utf8 ctext 0 len-ctext)))
+       (if (or (eq result t)
+               (>= (aref ctext (1- (abs result))) 128))
+           ctext
+         utf8)))))
 
 (defun x-selection-value (type)
   (let (text)