(diacritic-composition-function): Modify

confused prog1 form.

1 files 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))))