Show
Ignore:
Timestamp:
09/18/06 20:48:14 (2 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/select.el

    r4037 r4166  
    224224 
    225225           ((eq type 'UTF8_STRING) 
    226             (setq str (encode-coding-string str 'utf-8))) 
    227  
     226            (let ((charsets (find-charset-string str))) 
     227              (if (or (memq 'eight-bit-control charsets) 
     228                      (memq 'eight-bit-graphic charsets)) 
     229                  (setq type 'STRING) 
     230                (setq str (encode-coding-string str 'utf-8))))) 
    228231           (t 
    229232            (error "Unknow selection type: %S" type))