[Emacs-diffs] Changes to emacs/lisp/language/thai-util.el

[Kenichi Handa]

Index: emacs/lisp/language/thai-util.el
diff -c emacs/lisp/language/thai-util.el:1.24 
emacs/lisp/language/thai-util.el:1.25
*** emacs/lisp/language/thai-util.el:1.24       Tue Dec 11 12:59:53 2001
--- emacs/lisp/language/thai-util.el    Mon Oct 28 09:43:33 2002
***************
*** 286,292 ****
  
  The return value is number of composed characters."
    (if (< (1+ from) to)
!       (prog1 (- to from)
        (if string
            (compose-string string from to)
          (compose-region from to))
--- 286,292 ----
  
  The return value is number of composed characters."
    (if (< (1+ from) to)
!       (progn
        (if string
            (compose-string string from to)
          (compose-region from to))