# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1035816213 0
# Node ID 28c480de4424630aebfa74e3288e2a5f05bd0ed2
# Parent  7480394b28f44007059b0afa595af753033d0047
(thai-composition-function): Don't use prog1.

diff -r 7480394b28f4 -r 28c480de4424 lisp/language/thai-util.el
--- a/lisp/language/thai-util.el	Mon Oct 28 14:42:53 2002 +0000
+++ b/lisp/language/thai-util.el	Mon Oct 28 14:43:33 2002 +0000
@@ -286,7 +286,7 @@
 
 The return value is number of composed characters."
   (if (< (1+ from) to)
-      (prog1 (- to from)
+      (progn
 	(if string
 	    (compose-string string from to)
 	  (compose-region from to))