/[emacs]/emacs/lisp/international/utf-8.el
ViewVC logotype

Diff of /emacs/lisp/international/utf-8.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.41 by teirllm, Sat Jul 31 03:29:07 2004 UTC revision 1.42 by handa, Fri Aug 27 00:24:50 2004 UTC
# Line 870  Also compose particular scripts if `utf- Line 870  Also compose particular scripts if `utf-
870        ;; version of the string in the loop, since it's always loaded as        ;; version of the string in the loop, since it's always loaded as
871        ;; unibyte from a byte-compiled file.        ;; unibyte from a byte-compiled file.
872        (let ((range (string-as-multibyte "^\xc0-\xc3\xe1-\xf7"))        (let ((range (string-as-multibyte "^\xc0-\xc3\xe1-\xf7"))
873                (buffer-multibyte enable-multibyte-characters)
874              hash-table ch)              hash-table ch)
875            (set-buffer-multibyte t)
876          (when utf-translate-cjk-mode          (when utf-translate-cjk-mode
877            (if (not utf-translate-cjk-lang-env)            (if (not utf-translate-cjk-lang-env)
878                ;; Check these characters:                ;; Check these characters:
# Line 893  Also compose particular scripts if `utf- Line 895  Also compose particular scripts if `utf-
895                  (progn                  (progn
896                    (insert ch)                    (insert ch)
897                    (delete-char 1))                    (delete-char 1))
898                (forward-char 1)))))                (forward-char 1))))
899            (or buffer-multibyte
900                (set-buffer-multibyte nil)))
901    
902        (when (and utf-8-compose-scripts (> length 1))        (when (and utf-8-compose-scripts (> length 1))
903          ;; These currently have definitions which cover the relevant          ;; These currently have definitions which cover the relevant

Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26