Re: x-select-utf8-or-ctext is too slow

[Kenichi Handa]

In article <address@hidden>, Jesper Harder <address@hidden> writes:
> Yanking text from another application to Emacs is extremely slow.  It
> took 40 seconds for me to yank just 1000 lines of text from Mozilla to
> Emacs -- all of it spent in `x-select-utf8-or-ctext'

Please try this.  If the resulting performance is
reasonable, I'll install it.  Otherwise, I'll consider a
faster method.

(defun x-select-utf8-or-ctext (utf8 ctext)
  (let ((len-utf8 (length utf8))
        (len-ctext (length ctext))
        (selected ctext)
        (i 0)
        char)
    (if (/= len-utf8 len-ctext)
        (if (> len-utf8 len-ctext) utf8 ctext)
      (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)))))

---
Ken'ichi HANDA
address@hidden