Mercurial > emacs

comparison lisp/language/european.el @ 43734:ff1f9768901a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mac-roman): Fix last change.
author Eli Zaretskii <eliz@gnu.org>
date Tue, 05 Mar 2002 18:54:18 +0000
parents 6548976663b6
children cbba2fbd2b85
comparison
equal deleted inserted replaced
43733:6f6116f26432 43734:ff1f9768901a
567 567
568 (make-coding-system 568 (make-coding-system
569 'mac-roman 4 ?M 569 'mac-roman 4 ?M
570 "Mac Roman Encoding (MIME:MACINTOSH)." 570 "Mac Roman Encoding (MIME:MACINTOSH)."
571 '(decode-mac-roman . encode-mac-roman) 571 '(decode-mac-roman . encode-mac-roman)
572 '((safe-chars . (get 'mac-roman-encoder 'translation-table)) 572 (list (cons 'safe-chars (get 'mac-roman-encoder 'translation-table))
573 (valid-codes (0 . 255)) 573 '(valid-codes (0 . 255))
574 (mime-charset . macintosh))) ; per IANA, rfc1345 574 '(mime-charset . macintosh))) ; per IANA, rfc1345
575 575
576 (defconst diacritic-composition-pattern "\\C^\\c^+") 576 (defconst diacritic-composition-pattern "\\C^\\c^+")
577 577
578 (defun diacritic-compose-region (beg end) 578 (defun diacritic-compose-region (beg end)
579 "Compose diacritic characters in the region. 579 "Compose diacritic characters in the region.