[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: several bugs in latest emacs 21.3 from cvs

From: Kenichi Handa
Subject: Re: several bugs in latest emacs 21.3 from cvs
Date: Mon, 17 Mar 2003 15:32:48 +0900 (JST)
User-agent: SEMI/1.14.3 (Ushinoya) FLIM/1.14.2 (Yagi-Nishiguchi) APEL/10.2 Emacs/21.2.92 (sparc-sun-solaris2.6) MULE/5.0 (SAKAKI)

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

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)
          encoding textlen chset)
!       (while (re-search-forward
!             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 
          encoding textlen chset)
!       (while (re-search-forward pattern nil 'move)
        (set-marker newpt (point))
        (set-marker pt (match-beginning 0))
        (if (= (preceding-char) ?@)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]