From a3fac65a7898dd17e752f2ae586d29e5b18b97ad Mon Sep 17 00:00:00 2001 From: Dave Love Date: Mon, 28 Oct 2002 14:43:51 +0000 Subject: [PATCH] (thai-composition-function): Don't use prog1. --- lisp/ChangeLog | 7 +++++++ lisp/language/thai-util.el | 2 +- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e310fb66fc8..0903cfa8e44 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,12 @@ 2002-10-28 Dave Love + * language/thai-util.el (thai-composition-function): Don't use prog1. + + * language/lao-util.el (lao-composition-function): Don't use prog1. + + * language/european.el (diacritic-composition-function): Modify + confused prog1 form. + * international/quail.el (quail-keyboard-layout-alist): Fix pc105-uk. (quail-keyboard-layout): Customize. diff --git a/lisp/language/thai-util.el b/lisp/language/thai-util.el index 35914c2cc5b..bbf116485ea 100644 --- a/lisp/language/thai-util.el +++ b/lisp/language/thai-util.el @@ -286,7 +286,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)) -- 2.39.2