Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-19 11:27:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

(utf-8-post-read-conversion): Temporarily

Browse source 
bind utf-8-compose-scripts to nil while running *-compose-region
functions.
This commit is contained in:
Kenichi Handa 2007-07-20 01:53:08 +00:00
parent c0edfa75c4
commit 7c0953573e
1 changed files with 14 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
lisp/international/utf-8.el
View file

@ -991,16 +991,20 @@ Also compose particular scripts if `utf-8-compose-scripts' is non-nil."
(set-buffer-multibyte nil)))
(when (and utf-8-compose-scripts (> length 1))
;; These currently have definitions which cover the relevant
;; unicodes. We could avoid loading thai-util &c by checking
;; whether the region contains any characters with the appropriate
;; categories. There aren't yet Unicode-based rules for Tibetan.
(diacritic-compose-region (point-max) (point-min))
(thai-compose-region (point-max) (point-min))
(lao-compose-region (point-max) (point-min))
(devanagari-compose-region (point-max) (point-min))
(malayalam-compose-region (point-max) (point-min))
(tamil-compose-region (point-max) (point-min)))
;; This let-binding avoids recursive auto-loading. And, we
;; anyway don't have to run the following code while
;; auto-loading.
(let ((utf-8-compose-scripts nil))
;; These currently have definitions which cover the relevant
;; unicodes. We could avoid loading thai-util &c by checking
;; whether the region contains any characters with the appropriate
;; categories. There aren't yet Unicode-based rules for Tibetan.
(diacritic-compose-region (point-max) (point-min))
(thai-compose-region (point-max) (point-min))
(lao-compose-region (point-max) (point-min))
(devanagari-compose-region (point-max) (point-min))
(malayalam-compose-region (point-max) (point-min))
(tamil-compose-region (point-max) (point-min))))
(- (point-max) (point-min)))))
(defun utf-8-pre-write-conversion (beg end)