(lao-composition-function): Don't use prog1.

This commit is contained in:
Dave Love 2002-10-28 14:42:53 +00:00
parent 34b5d116a3
commit e10fd9a8c8

View file

@ -596,7 +596,7 @@ to compose.
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))