Mercurial > emacs
comparison lisp/international/mule.el @ 90357:ee03316bed9d
*** empty log message ***
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 08 Mar 2006 11:56:59 +0000 |
| parents | c363a0b675ba |
| children | 47abdf8178fc |
comparison
equal
deleted
inserted
replaced
| 90356:c363a0b675ba | 90357:ee03316bed9d |
|---|---|
| 1526 len) | 1526 len) |
| 1527 (encode-coding-region last-pos (point) coding-system) | 1527 (encode-coding-region last-pos (point) coding-system) |
| 1528 (setq len (+ (length encoding-name) 1 | 1528 (setq len (+ (length encoding-name) 1 |
| 1529 (- (point) last-pos))) | 1529 (- (point) last-pos))) |
| 1530 ;; According to the spec of CTEXT, it is not | 1530 ;; According to the spec of CTEXT, it is not |
| 1531 ;; necessary to produding this extra | 1531 ;; necessary to produde this extra designation |
| 1532 ;; designation sequence, but some buggy | 1532 ;; sequence, but some buggy application |
| 1533 ;; application (e.g. crxvt-gb) requires it. | 1533 ;; (e.g. crxvt-gb) requires it. |
| 1534 (insert "\e(B") | 1534 (insert "\e(B") |
| 1535 (save-excursion | 1535 (save-excursion |
| 1536 (goto-char last-pos) | 1536 (goto-char last-pos) |
| 1537 (insert (format "\e%%/%d" noctets)) | 1537 (insert (format "\e%%/%d" noctets)) |
| 1538 (insert-byte (+ (/ len 128) 128) 1) | 1538 (insert-byte (+ (/ len 128) 128) 1) |