# HG changeset patch # User Kenichi Handa # Date 885433705 0 # Node ID 63a3f7a57627d0285d5f4b92ab56e78f557544b7 # Parent 5d6f4b0c2763cb5199e4de43abfd335558557028 Exclude describe-indian-environment-map and setup-indian-environment-map for args of call to set-language-info-alist. Adjusted for the change of make-coding-system. Register coding-priority key in language-info-alist. diff -r 5d6f4b0c2763 -r 63a3f7a57627 lisp/language/devanagari.el --- a/lisp/language/devanagari.el Thu Jan 22 01:48:25 1998 +0000 +++ b/lisp/language/devanagari.el Thu Jan 22 01:48:25 1998 +0000 @@ -33,26 +33,23 @@ (make-coding-system 'in-is13194-devanagari 2 ?D "8-bit encoding for ASCII (MSB=0) and IS13194-Devanagari (MSB=1)" - '((ascii t) (indian-is13194 t) nil nil + '(ascii indian-is13194 nil nil nil ascii-eol) - '(ascii indian-is13194)) + '((safe-charsets ascii indian-is13194) + (post-read-conversion . in-is13194-devanagari-post-read-conversion) + (pre-write-conversion . in-is13194-devanagari-pre-write-conversion))) (define-coding-system-alias 'devanagari 'in-is13194-devanagari) -(coding-system-put 'devanagari 'post-read-conversion - 'in-is13194-devanagari-post-read-conversion) -(coding-system-put 'devanagari 'pre-write-conversion - 'in-is13194-devanagari-pre-write-conversion) - (set-language-info-alist - "Devanagari" '((setup-function . (setup-devanagari-environment - . setup-indian-environment-map)) - (charset . (indian-is13194 indian-2-column indian-1-column)) - (coding-system . (devanagari)) - (documentation . ("\ + "Devanagari" '((setup-function . setup-devanagari-environment) + (charset indian-is13194 indian-2-column indian-1-column) + (coding-system in-is13194-devanagari) + (coding-priority in-is13194-devanagari) + (documentation . "\ Such languages using Devanagari script as Hindi and Marathi -are supported in this language environment." - . describe-indian-environment-map)))) +are supported in this language environment.")) + '("Indian")) ;; ;; Devanagari Glyph List