Commit b040ac64 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

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

parent 4d449b11
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment