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.

1 files changed, 11 insertions, 14 deletions

diff --git a/lisp/language/devanagari.el b/lisp/language/devanagari.el
index f26e0fe648..740be8b3d7 100644
--- a/lisp/language/devanagari.el
+++ b/lisp/language/devanagari.el
@@ -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