Mercurial > emacs
changeset 59175:a9efc32867d2
(recode-region): New function.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 29 Dec 2004 01:25:15 +0000 |
| parents | 517f681ba7a8 |
| children | 25f94004470f |
| files | lisp/international/mule.el |
| diffstat | 1 files changed, 19 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule.el Wed Dec 29 00:10:31 2004 +0000 +++ b/lisp/international/mule.el Wed Dec 29 01:25:15 2004 +0000 @@ -1924,6 +1924,25 @@ (setq buffer-undo-list (cons (cons from (point-max)) undo-list-saved)))))))) +(defun recode-region (start end new-coding coding) + "Re-decode the region (previously decoded by CODING) by NEW-CODING." + (interactive + (list (region-beginning) (region-end) + (read-coding-system "Text was really in: ") + (let ((coding (or buffer-file-coding-system last-coding-system-used))) + (read-coding-system + (concat "But was interpreted as" + (if coding (format " (default %S): " coding) ": ")) + coding)))) + (or (and new-coding coding) + (error "Coding system not specified")) + ;; Check it before we encode the region. + (check-coding-system new-coding) + (save-restriction + (narrow-to-region start end) + (encode-coding-region (point-min) (point-max) coding) + (decode-coding-region (point-min) (point-max) new-coding))) + (defun make-translation-table (&rest args) "Make a translation table from arguments. A translation table is a char table intended for character