diff options
| author | Dave Love | 2002-10-28 14:43:51 +0000 |
|---|---|---|
| committer | Dave Love | 2002-10-28 14:43:51 +0000 |
| commit | a3fac65a7898dd17e752f2ae586d29e5b18b97ad (patch) | |
| tree | f974dd367ae28e64b5240707ed9a8830a8d5af06 /lisp/language | |
| parent | e10fd9a8c8d4dab01812f33c03be0ff3fd362308 (diff) | |
| download | emacs-a3fac65a7898dd17e752f2ae586d29e5b18b97ad.tar.gz emacs-a3fac65a7898dd17e752f2ae586d29e5b18b97ad.zip | |
(thai-composition-function): Don't use prog1.
Diffstat (limited to 'lisp/language')
| -rw-r--r-- | lisp/language/thai-util.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/language/thai-util.el b/lisp/language/thai-util.el index 35914c2cc5b..bbf116485ea 100644 --- a/lisp/language/thai-util.el +++ b/lisp/language/thai-util.el | |||
| @@ -286,7 +286,7 @@ to compose. | |||
| 286 | 286 | ||
| 287 | The return value is number of composed characters." | 287 | The return value is number of composed characters." |
| 288 | (if (< (1+ from) to) | 288 | (if (< (1+ from) to) |
| 289 | (prog1 (- to from) | 289 | (progn |
| 290 | (if string | 290 | (if string |
| 291 | (compose-string string from to) | 291 | (compose-string string from to) |
| 292 | (compose-region from to)) | 292 | (compose-region from to)) |