diff options
Diffstat (limited to 'lisp/language/european.el')
| -rw-r--r-- | lisp/language/european.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/language/european.el b/lisp/language/european.el index 233c099b734..ed4607c6b9a 100644 --- a/lisp/language/european.el +++ b/lisp/language/european.el @@ -582,7 +582,7 @@ but it selects the Dutch tutorial and input method.")) (setq translation-table (make-translation-table-from-vector encoding-vector)) (define-translation-table 'mac-roman-decoder translation-table) - (define-translation-table 'mac-roman-encoder + (define-translation-table 'mac-roman-encoder (char-table-extra-slot translation-table 0))) (define-ccl-program decode-mac-roman @@ -640,7 +640,7 @@ positions (integers or markers) specifying the region." (compose-string string idx (match-end 0)) (setq idx (match-end 0)))) string) - + (defun diacritic-compose-buffer () "Compose diacritic characters in the current buffer." (interactive) |