Mercurial > emacs
comparison lisp/international/mule.el @ 45857:32f0cf84df57
(ctext-pre-write-conversion): Fix the values of FROM and TO if we create
a new buffer.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Mon, 17 Jun 2002 10:25:07 +0000 |
parents | febc3fe8ff9b |
children | dabcd09794f7 |
comparison
equal
deleted
inserted
replaced
45856:eabc9c7b9cdc | 45857:32f0cf84df57 |
---|---|
1365 ;; into its buffer. | 1365 ;; into its buffer. |
1366 (set-buffer-multibyte t) | 1366 (set-buffer-multibyte t) |
1367 (set-buffer-modified-p modified-p) | 1367 (set-buffer-modified-p modified-p) |
1368 (- (point-max) (point-min))))) | 1368 (- (point-max) (point-min))))) |
1369 | 1369 |
1370 ;; If you add charsets here, be sure to modify the regexp used by | |
1371 ;; ctext-pre-write-conversion to look up non-standard charsets. | |
1370 (defvar non-standard-designations-alist | 1372 (defvar non-standard-designations-alist |
1371 '(("$(0" . (big5 "big5-0" 2)) | 1373 '(("$(0" . (big5 "big5-0" 2)) |
1372 ("$(1" . (big5 "big5-0" 2)) | 1374 ("$(1" . (big5 "big5-0" 2)) |
1373 ("-V" . (t "iso8859-10" 1)) | 1375 ("-V" . (t "iso8859-10" 1)) |
1374 ("-Y" . (t "iso8859-13" 1)) | 1376 ("-Y" . (t "iso8859-13" 1)) |
1406 (let ((buf (current-buffer))) | 1408 (let ((buf (current-buffer))) |
1407 (set-buffer (generate-new-buffer " *temp")) | 1409 (set-buffer (generate-new-buffer " *temp")) |
1408 (buffer-disable-undo) | 1410 (buffer-disable-undo) |
1409 (if (stringp from) | 1411 (if (stringp from) |
1410 (insert from) | 1412 (insert from) |
1411 (insert-buffer-substring buf from to))))) | 1413 (insert-buffer-substring buf from to)) |
1414 (setq from (point-min) to (point-max))))) | |
1412 (encode-coding-region from to 'ctext-no-compositions) | 1415 (encode-coding-region from to 'ctext-no-compositions) |
1413 ;; Replace ISO-2022 charset designations with extended segments, for | 1416 ;; Replace ISO-2022 charset designations with extended segments, for |
1414 ;; those charsets that are not part of the official X registry. | 1417 ;; those charsets that are not part of the official X registry. |
1415 (save-match-data | 1418 (save-match-data |
1416 (goto-char (point-min)) | 1419 (goto-char (point-min)) |