diff options
| author | Kenichi Handa <handa@m17n.org> | 2004-01-29 04:56:11 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2004-01-29 04:56:11 +0000 |
| commit | ef99df9a8695cb7a0a20fdbf3049c1f08a83f01e (patch) | |
| tree | 5f1516d654b3e402847b91fac723d712d5769491 | |
| parent | 13f52ed8144e1e352f03b69c92ed40fd322bb513 (diff) | |
| download | emacs-ef99df9a8695cb7a0a20fdbf3049c1f08a83f01e.tar.gz emacs-ef99df9a8695cb7a0a20fdbf3049c1f08a83f01e.tar.bz2 emacs-ef99df9a8695cb7a0a20fdbf3049c1f08a83f01e.zip | |
(x-selection-value): Optimize for ASCII only case.
| -rw-r--r-- | lisp/term/x-win.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index 9e37943032b..5b1bbd57d64 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -2198,8 +2198,10 @@ order until succeed.") (error nil)) utf8-coding last-coding-system-used) (if utf8 - ;; If it is a locale selection, choose it. - (or (get-text-property 0 'foreign-selection utf8) + ;; If it is a locale selection, or it contains only + ;; ASCII characers, choose it. + (if (or (not (get-text-property 0 'foreign-selection utf8)) + (= (length utf8) (string-bytes utf8))) (setq text utf8))) ;; If not yet decided, try COMPOUND_TEXT. (if (not text) |