From 34b5d116a3fed46503f6a8844095c88031e36759 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Mon, 28 Oct 2002 14:40:18 +0000 Subject: [PATCH] (diacritic-composition-function): Modify confused prog1 form. --- lisp/language/european.el | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/lisp/language/european.el b/lisp/language/european.el index 338b73fe960..c531b74fbda 100644 --- a/lisp/language/european.el +++ b/lisp/language/european.el @@ -625,13 +625,12 @@ The text matches the regular expression PATTERN. Optional 4th argument STRING, if non-nil, is a string containing text to compose. -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)) - (- to from)))) +The return value is the number of composed characters." + (when (< (1+ from) to) + (if string + (compose-string string from to) + (compose-region from to)) + (- to from))) ;; Register a function to compose Unicode diacrtics and marks. (let ((patterns '(("\\C^\\c^+" . diacritic-composition-function)))) -- 2.39.2