Re: several bugs in latest emacs 21.3 from cvs

[Kenichi Handa]

In article <address@hidden>, Kenichi Handa <address@hidden> writes:
> In article <address@hidden>, Kenichi Handa <address@hidden> writes:
>>  Anyway, I also tried and got the following result (I visited
>>  http://www.msu.ru/search.html).

>>  (1-1) paste from galeon to emacs:
>>    fail (got latin-1 chars instead of something like \x{043D}
>>    as your case)

> Sorry, the above was my misunderstanding.  What Emacs got in
> the above case was the same as this case:

Sorry again.  Emacs was not in Russian lang. env. when (1-1)
inserts Cyrillic chars.  I've just installed the attached
change in HEAD.  Now, (1-1) inserts Cyrillic chars (but
still wrong ones) in any lang. env. for me.

---
Ken'ichi HANDA
address@hidden

Index: mule.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/mule.el,v
retrieving revision 1.178
retrieving revision 1.179
diff -u -c -r1.178 -r1.179
cvs server: conflicting specifications of output style
*** mule.el     10 Feb 2003 22:20:47 -0000      1.178
--- mule.el     17 Mar 2003 05:35:04 -0000      1.179
***************
*** 1410,1420 ****
          (newpt (make-marker))
          (modified-p (buffer-modified-p))
          (case-fold-search nil)
          last-coding-system-used
          encoding textlen chset)
!       (while (re-search-forward
!             
"\\(\e\\)%/[0-4]\\([\200-\377][\200-\377]\\)\\([^\002]+\\)\002\\|\e%G[^\e]+\e%@"
!             nil 'move)
        (set-marker newpt (point))
        (set-marker pt (match-beginning 0))
        (if (= (preceding-char) ?@)
--- 1410,1422 ----
          (newpt (make-marker))
          (modified-p (buffer-modified-p))
          (case-fold-search nil)
+         ;; We need multibyte conversion of "TO" type because the
+         ;; buffer may be multibyte, and, in that case, the pattern
+         ;; must contain eight-bit-control/graphic characters.
+         (pattern (string-to-multibyte 
"\\(\e\\)%/[0-4]\\([\200-\377][\200-\377]\\)\\([^\002]+\\)\002\\|\e%G[^\e]+\e%@"))
          last-coding-system-used
          encoding textlen chset)
!       (while (re-search-forward pattern nil 'move)
        (set-marker newpt (point))
        (set-marker pt (match-beginning 0))
        (if (= (preceding-char) ?@)