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

*** empty log message ***

Browse source
This commit is contained in:
Kenichi Handa 2007-06-16 03:06:49 +00:00
parent e25d306ce8
commit c8e50a7347
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/language/tv-util.el
View file

@ -56,7 +56,8 @@
(compose-string string from (1+ from) (string ch ?\t)))
(setq from (1+ from) prev-info info)
(while (and (< from to)
(tai-viet-char-p (setq ch (aref string from))))
(>= #xaa80 (setq ch (aref string from)))
(<= #xaaDF ch))
(setq info (aref tai-viet-glyph-info ch))
(if (and (eq info 'non-spacing)
(eq prev-info 'non-spacing))