582 |
(setq translation-table |
(setq translation-table |
583 |
(make-translation-table-from-vector encoding-vector)) |
(make-translation-table-from-vector encoding-vector)) |
584 |
(define-translation-table 'mac-roman-decoder translation-table) |
(define-translation-table 'mac-roman-decoder translation-table) |
585 |
(define-translation-table 'mac-roman-encoder |
(define-translation-table 'mac-roman-encoder |
586 |
(char-table-extra-slot translation-table 0))) |
(char-table-extra-slot translation-table 0))) |
587 |
|
|
588 |
(define-ccl-program decode-mac-roman |
(define-ccl-program decode-mac-roman |
640 |
(compose-string string idx (match-end 0)) |
(compose-string string idx (match-end 0)) |
641 |
(setq idx (match-end 0)))) |
(setq idx (match-end 0)))) |
642 |
string) |
string) |
643 |
|
|
644 |
(defun diacritic-compose-buffer () |
(defun diacritic-compose-buffer () |
645 |
"Compose diacritic characters in the current buffer." |
"Compose diacritic characters in the current buffer." |
646 |
(interactive) |
(interactive) |