[Emacs-diffs] Changes to emacs/src/xselect.c

[Kenichi Handa]

Index: emacs/src/xselect.c
diff -c emacs/src/xselect.c:1.148 emacs/src/xselect.c:1.149
*** emacs/src/xselect.c:1.148   Tue Feb  8 21:26:44 2005
--- emacs/src/xselect.c Mon Feb 14 00:59:42 2005
***************
*** 1908,1914 ****
      }
    else if (STRINGP (obj))
      {
!       xassert (! STRING_MULTIBYTE (obj));
        if (NILP (type))
        type = QSTRING;
        *format_ret = 8;
--- 1908,1919 ----
      }
    else if (STRINGP (obj))
      {
!       if (SCHARS (obj) < SBYTES (obj))
!       /* OBJ is a multibyte string containing a non-ASCII char.  */
!       Fsignal (Qerror, /* Qselection_error */
!                Fcons (build_string
!                       ("Non-ASCII string must be encoded in advance"),
!                       Fcons (obj, Qnil)));
        if (NILP (type))
        type = QSTRING;
        *format_ret = 8;