(diacritic-composition-function): Modify

confused prog1 form.

diff --git a/lisp/language/european.el b/lisp/language/european.el
index 338b73fe960f4f2432366b8ec44ef7791638fb5c..c531b74fbda0b84515c4f6f9adcb6d2856ec97a4 100644 (file)
--- 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))))