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

[Kenichi Handa]

Index: emacs/lisp/international/utf-8.el
diff -c emacs/lisp/international/utf-8.el:1.41 
emacs/lisp/international/utf-8.el:1.42
*** emacs/lisp/international/utf-8.el:1.41      Sat Jul 31 03:29:07 2004
--- emacs/lisp/international/utf-8.el   Fri Aug 27 00:24:50 2004
***************
*** 870,876 ****
--- 870,878 ----
        ;; version of the string in the loop, since it's always loaded as
        ;; unibyte from a byte-compiled file.
        (let ((range (string-as-multibyte "^\xc0-\xc3\xe1-\xf7"))
+           (buffer-multibyte enable-multibyte-characters)
            hash-table ch)
+       (set-buffer-multibyte t)
        (when utf-translate-cjk-mode
          (if (not utf-translate-cjk-lang-env)
              ;; Check these characters:
***************
*** 893,899 ****
                (progn
                  (insert ch)
                  (delete-char 1))
!             (forward-char 1)))))
  
        (when (and utf-8-compose-scripts (> length 1))
        ;; These currently have definitions which cover the relevant
--- 895,903 ----
                (progn
                  (insert ch)
                  (delete-char 1))
!             (forward-char 1))))
!       (or buffer-multibyte
!           (set-buffer-multibyte nil)))
  
        (when (and utf-8-compose-scripts (> length 1))
        ;; These currently have definitions which cover the relevant