Mercurial > emacs
changeset 48041:af717e120019
(diacritic-composition-function): Modify
confused prog1 form.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Mon, 28 Oct 2002 14:40:18 +0000 |
| parents | 129cd0abffe7 |
| children | 7480394b28f4 |
| files | lisp/language/european.el |
| diffstat | 1 files changed, 6 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/language/european.el Mon Oct 28 14:38:00 2002 +0000 +++ b/lisp/language/european.el Mon Oct 28 14:40:18 2002 +0000 @@ -625,13 +625,12 @@ 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))))