changeset 48043:28c480de4424

(thai-composition-function): Don't use prog1.
author Dave Love <fx@gnu.org>
date Mon, 28 Oct 2002 14:43:33 +0000
parents 7480394b28f4
children 57c1e1c09fde
files lisp/language/thai-util.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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))