[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/international/utf-8.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/international/utf-8.el [lexbind] |
Date: |
Sat, 04 Sep 2004 05:45:33 -0400 |
Index: emacs/lisp/international/utf-8.el
diff -c emacs/lisp/international/utf-8.el:1.13.2.7
emacs/lisp/international/utf-8.el:1.13.2.8
*** emacs/lisp/international/utf-8.el:1.13.2.7 Sat Sep 4 09:19:26 2004
--- emacs/lisp/international/utf-8.el Sat Sep 4 09:26:22 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