[Emacs-diffs] Changes to emacs/lisp/international/mule.el

[Kenichi Handa]

Index: emacs/lisp/international/mule.el
diff -c emacs/lisp/international/mule.el:1.178 
emacs/lisp/international/mule.el:1.179
*** emacs/lisp/international/mule.el:1.178      Mon Feb 10 17:20:47 2003
--- emacs/lisp/international/mule.el    Mon Mar 17 00:35:04 2003
***************
*** 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) ?@)