diff options
| author | Dave Love | 2002-10-28 14:42:53 +0000 |
|---|---|---|
| committer | Dave Love | 2002-10-28 14:42:53 +0000 |
| commit | e10fd9a8c8d4dab01812f33c03be0ff3fd362308 (patch) | |
| tree | 822f7bf53f20d3f8bf4aaf5859309a1f345d7a6a | |
| parent | 34b5d116a3fed46503f6a8844095c88031e36759 (diff) | |
| download | emacs-e10fd9a8c8d4dab01812f33c03be0ff3fd362308.tar.gz emacs-e10fd9a8c8d4dab01812f33c03be0ff3fd362308.zip | |
(lao-composition-function): Don't use prog1.
| -rw-r--r-- | lisp/language/lao-util.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/language/lao-util.el b/lisp/language/lao-util.el index 1639b1bf78b..0f8d472bdde 100644 --- a/lisp/language/lao-util.el +++ b/lisp/language/lao-util.el | |||
| @@ -596,7 +596,7 @@ to compose. | |||
| 596 | 596 | ||
| 597 | The return value is number of composed characters." | 597 | The return value is number of composed characters." |
| 598 | (if (< (1+ from) to) | 598 | (if (< (1+ from) to) |
| 599 | (prog1 (- to from) | 599 | (progn |
| 600 | (if string | 600 | (if string |
| 601 | (compose-string string from to) | 601 | (compose-string string from to) |
| 602 | (compose-region from to)) | 602 | (compose-region from to)) |