Make functions setup-LANGUAGE-environment

interactive and add new functions describe-LANGUAGE-support for
all LANGUAGEs supported.  Remove resisterations of input methods
which use the function encoded-kbd-select-terminal.
Change function of post-read-conversion
and pre-write-conversion of coding system in-is13194-devanagari to
in-is13194-devanagari-post-read-conversion and
in-is13194-devanagari-pre-write-conversion respectively.
Setting of syntax and category for Devanagari characters are moved
to characters.el.

diff --git a/lisp/language/devanagari.el b/lisp/language/devanagari.el
index ce0d45de552f1215026f447010e25d911f2a2e52..9fd47c5760736ac0075e1eed96497ed074971012 100644 (file)
--- a/lisp/language/devanagari.el
+++ b/lisp/language/devanagari.el
@@ -35,10 +35,11 @@
  "Coding-system used for ASCII(MSB=0) & IS13194-Devanagari(MSB=1)."
  '((ascii t) (indian-is13194 t) nil nil
    nil ascii-eol))
+devanagari-compose-from-is13194-region
 (put 'in-is13194-devanagari
-     'post-read-conversion 'devanagari-compose-from-is13194-region)
+     'post-read-conversion 'in-is13194-devanagari-post-read-conversion)
 (put 'in-is13194-devanagari
-     'pre-write-conversion 'devanagari-decompose-to-is13194-region)
+     'pre-write-conversion 'in-is13194-devanagari-pre-write-conversion)
 
 (register-input-method
  "Devanagari" '("quail-devanagari-transliteration" quail-use-package
@@ -57,6 +58,8 @@
                "quail/devanagari"))
 
 (defun setup-devanagari-environment ()
+  "Setup multilingual environment (MULE) for languages using Devanagari."
+  (interactive)
   (setq coding-category-iso-8-1 'in-is13194-devanagari)
 
   (set-coding-priority
@@ -68,40 +71,17 @@
   (setq default-input-method '("Devanagari" . "quail-devanagari-itrans"))
   )
 
+(defun describe-devanagari-support ()
+  "Describe how Emacs support languages using Devanagari script."
+  (interactive)
+  (describe-language-support-internal "Devanagari"))
+
 (set-language-info-alist
  "Devanagari" '((setup-function . setup-devanagari-environment)
+               (describe-function . describe-devanagari-support)
                (charset . (indian-is13194 indian-2-column indian-1-column))
                (coding-system . (in-is13194-devanagari))
-               (documentation . t)))
-
-(let ((deflist '(;; chars      syntax  category
-                 ("\e$(5!!!"!#\e(B"      "w"     ?7) ; vowel-modifying diacritical mark
-                                           ; chandrabindu, anuswar, visarga
-                 ("\e$(5!$\e(B-\e$(5!2\e(B"        "w"     ?5) ; independent vowel
-                 ("\e$(5!3\e(B-\e$(5!X\e(B"        "w"     ?0) ; consonant
-                 ("\e$(5!Z\e(B-\e$(5!g\e(B"        "w"     ?8) ; matra
-                 ("\e$(5!q\e(B-\e$(5!z\e(B"        "w"     ?6) ; digit
-                 ))
-      elm chars len syntax category to ch i)
-  (while deflist
-    (setq elm (car deflist))
-    (setq chars (car elm)
-         len (length chars)
-         syntax (nth 1 elm)
-         category (nth 2 elm)
-         i 0)
-    (while (< i len)
-      (if (= (aref chars i) ?-)
-         (setq i (1+ i)
-               to (sref chars i))
-       (setq ch (sref chars i)
-             to ch))
-      (while (<= ch to)
-       (modify-syntax-entry ch syntax)
-       (modify-category-entry ch category)
-       (setq ch (1+ ch)))
-      (setq i (+ i (char-bytes to))))
-    (setq deflist (cdr deflist))))
+               (documentation . nil)))
 
 ;;
 ;; Devanagari Glyph List