mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Kenichi Handa 2004-02-10 03:52:37 +00:00
parent 4d449b11a0
commit b040ac646b
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/term/x-win.el
View File

@ -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)