Mercurial > emacs
comparison lisp/international/mule.el @ 96947:57b80a67db7b
(recode-region): Deactivate mark at the end.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Wed, 23 Jul 2008 22:40:07 +0000 |
| parents | f7271aace10a |
| children | c3512b2085a0 |
comparison
equal
deleted
inserted
replaced
| 96946:097917c3c2c2 | 96947:57b80a67db7b |
|---|---|
| 2047 ;; Check it before we encode the region. | 2047 ;; Check it before we encode the region. |
| 2048 (check-coding-system new-coding) | 2048 (check-coding-system new-coding) |
| 2049 (save-restriction | 2049 (save-restriction |
| 2050 (narrow-to-region start end) | 2050 (narrow-to-region start end) |
| 2051 (encode-coding-region (point-min) (point-max) coding) | 2051 (encode-coding-region (point-min) (point-max) coding) |
| 2052 (decode-coding-region (point-min) (point-max) new-coding))) | 2052 (decode-coding-region (point-min) (point-max) new-coding)) |
| 2053 (if (region-active-p) | |
| 2054 (deactivate-mark))) | |
| 2053 | 2055 |
| 2054 (defun make-translation-table (&rest args) | 2056 (defun make-translation-table (&rest args) |
| 2055 "Make a translation table from arguments. | 2057 "Make a translation table from arguments. |
| 2056 A translation table is a char table intended for character | 2058 A translation table is a char table intended for character |
| 2057 translation in CCL programs. | 2059 translation in CCL programs. |