[Emacs-diffs] Changes to emacs/lisp/composite.el,v

[Kenichi Handa]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kenichi Handa <handa>   08/06/26 07:26:39

Index: composite.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/composite.el,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -b -r1.32 -r1.33
--- composite.el        26 Jun 2008 04:16:09 -0000      1.32
+++ composite.el        26 Jun 2008 07:26:39 -0000      1.33
@@ -452,7 +452,8 @@
                      (= (aref char-width-table (aref string pos)) 0))
            (setq pos (1+ pos)))
          (if (and (> from 0)
-                  (terminal-composition-base-character-p (aref string (1- 
from))))
+                  (terminal-composition-base-character-p
+                   (aref string (1- from))))
              (compose-string string (1- from) pos)
            (compose-string string from pos
                            (concat " " (buffer-substring from pos)))))
@@ -460,7 +461,7 @@
                  (= (aref char-width-table (char-after pos)) 0))
        (setq pos (1+ pos)))
       (if (and (> from (point-min))
-              (terminal-composition-base-character-p (char-after pos)))
+              (terminal-composition-base-character-p (char-after (1- from))))
          (compose-region (1- from) pos)
        (compose-region from pos
                        (concat " " (buffer-substring from pos)))))