From: Kenichi Handa <handa@m17n.org>
Date: Thu, 22 Jan 1998 01:48:25 +0000 (+0000)
Subject: Exclude describe-indian-environment-map
X-Git-Tag: emacs-20.3~2327
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7e2404fd96576255f28d7ae919b33516dcf37d68;p=emacs.git

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 --git a/lisp/language/devanagari.el b/lisp/language/devanagari.el
index f26e0fe6487..740be8b3d7c 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