Fix handling of several characters.

Remove prefix "coding-system-" from coding system symbol names.

diff --git a/lisp/language/devanagari.el b/lisp/language/devanagari.el
index 74abc27b343d55a033c7a98722f66ebe4056c6cb..8c6a003af0a8c3fee8e7f8d3fa3942d2ad83bd90 100644 (file)
--- a/lisp/language/devanagari.el
+++ b/lisp/language/devanagari.el
@@ -26,18 +26,18 @@
 ;;; Commentary:
 
 ;; History:
-;; 1996.9.18 written by KAWABATA, Taichi <kawabata@is.s.u-tokyo.ac.jp>
-
+;; 1996.10.18 written by KAWABATA, Taichi <kawabata@is.s.u-tokyo.ac.jp>
+;; 1997.1.20 fixed some bugs.
 ;;; Code:
 
 (make-coding-system
- 'coding-system-is13194-devanagari 2 ?D
+ 'in-is13194-devanagari 2 ?D
  "Coding-system used for ASCII(MSB=0) & IS13194-Devanagari(MSB=1)."
  '((ascii t) (indian-is13194 t) nil nil
    nil ascii-eol))
-(put 'coding-system-is13194-devanagari
+(put 'in-is13194-devanagari
      'post-read-conversion 'devanagari-compose-from-is13194-region)
-(put 'coding-system-is13194-devanagari
+(put 'in-is13194-devanagari
      'pre-write-conversion 'devanagari-decompose-to-is13194-region)
 
 (register-input-method
@@ -53,13 +53,13 @@
                "quail/devanagari"))
 
 (defun setup-devanagari-environment ()
-  (setq coding-category-iso-8-1 'coding-system-is13194-devanagari)
+  (setq coding-category-iso-8-1 'in-is13194-devanagari)
 
   (set-coding-priority
    '(coding-category-iso-7
      coding-category-iso-8-1))
 
-  (setq-default buffer-file-coding-system 'coding-system-is13194-devanagari)
+  (setq-default buffer-file-coding-system 'in-is13194-devanagari)
 
   (setq default-input-method '("Devanagari" . "quail-devanagari-itrans"))
   )
@@ -67,7 +67,7 @@
 (set-language-info-alist
  "Devanagari" '((setup-function . setup-devanagari-environment)
                (charset . (indian-is13194 indian-2-column indian-1-column))
-               (coding-system . (coding-system-is13194-devanagari))
+               (coding-system . (in-is13194-devanagari))
                (documentation . t)))
 
 (let ((deflist '(;; chars      syntax  category
@@ -102,6 +102,7 @@
 ;;
 ;; Devanagari Glyph List
 ;;
+;;      0 1 2 3 4 5 6 7 8 9 a b c d e f
 ;;2120   \e$(5!!!"!#!$!%!&!'!(!)!*!+!,!-!.!/\e(B
 ;;2130 \e$(5!0!1!2!3!4!5!6!7!8!9!:!;!<!=!>!?\e(B
 ;;2140 \e$(5!@!A!B!C!D!E!F!G!H!I!J!K!L!M!N!O\e(B
@@ -109,27 +110,31 @@
 ;;2160 \e$(5!`!a!b!c!d!e!f!g!h!i!j!k!l!m!n!o\e(B
 ;;2170 \e$(5!p!q!r!s!t!u!v!w!x!y!z!{!|!}!~\e(B
 ;;
-;;2220 \e$(5"!"""#"$"%"&"'"(")"*"+","-"."/\e(B
+;;      0 1 2 3 4 5 6 7 8 9 a b c d e f
+;;2220   \e$(5"!"""#"$"%"&"'"(")"*"+","-"."/\e(B
 ;;2230 \e$(5"0"1"2"3"4"5"6"7"8"9":";"<"=">"?\e(B
 ;;2240 \e$(5"@"A"B"C"D"E"F"G"H"I"J"K"L"M"N"O\e(B
 ;;2250 \e$(5"P"Q"R"S"T"U"V"W"X"Y"Z"["\"]"^"_\e(B
 ;;2260 \e$(5"`"a"b"c"d"e"f"g"h"i"j"k"l"m"n"o\e(B
 ;;2270 \e$(5"p"q"r"s"t"u"v"w"x"y"z"{"|"}"~\e(B
 ;;
-;;2320 \e$(5#!#"###$#%#&#'#(#)#*#+#,#-#.#/\e(B
+;;      0 1 2 3 4 5 6 7 8 9 a b c d e f
+;;2320   \e$(5#!#"###$#%#&#'#(#)#*#+#,#-#.#/\e(B
 ;;2330 \e$(5#0#1#2#3#4#5#6#7#8#9#:#;#<#=#>#?\e(B
 ;;2340 \e$(5#@#A#B#C#D#E#F#G#H#I#J#K#L#M#N#O\e(B
 ;;2350 \e$(5#P#Q#R#S#T#U#V#W#X#Y#Z#[#\#]#^#_\e(B
 ;;2360 \e$(5#`#a#b#c#d#e#f#g#h#i#j#k#l#m#n#o\e(B
 ;;2370 \e$(5#p#q#r#s#t#u#v#w#x#y#z#{#|#}#~\e(B
 ;;
-;;2420 \e$(5$!$"$#$$$%$&$'$($)$*$+$,$-$.$/\e(B
+;;      0 1 2 3 4 5 6 7 8 9 a b c d e f
+;;2420   \e$(5$!$"$#$$$%$&$'$($)$*$+$,$-$.$/\e(B
 ;;2430 \e$(5$0$1$2$3$4$5$6$7$8$9$:$;$<$=$>$?\e(B
 ;;2440 \e$(5$@$A$B$C$D$E$F$G$H$I$J$K$L$M$N$O\e(B
 ;;2450 \e$(5$P$Q$R$S$T$U$V$W$X$Y$Z$[$\$]$^$_\e(B
 ;;2460 \e$(5$`$a$b$c$d$e$f$g$h$i$j$k$l$m$n$o\e(B
 ;;2470 \e$(5$p$q$r$s$t$u$v$w$x$y$z${$|$}$~\e(B
 ;;
+;;     0123456789abcdef
 ;;2120  \e$(6!!!"!#!$!%!&!'!(!)!*!+!,!-!.!/\e(B
 ;;2130 \e$(6!0!1!2!3!4!5!6!7!8!9!:!;!<!=!>!?\e(B
 ;;2140 \e$(6!@!A!B!C!D!E!F!G!H!I!J!K!L!M!N!O\e(B
@@ -137,6 +142,7 @@
 ;;2160 \e$(6!`!a!b!c!d!e!f!g!h!i!j!k!l!m!n!o\e(B
 ;;2170 \e$(6!p!q!r!s!t!u!v!w!x!y!z!{!|!}!~\e(B
 ;;
+;;     0123456789abcdef
 ;;2220  \e$(6"!"""#"$"%"&"'"(")"*"+","-"."/\e(B
 ;;2230 \e$(6"0"1"2"3"4"5"6"7"8"9":";"<"=">"?\e(B
 ;;2240 \e$(6"@"A"B"C"D"E"F"G"H"I"J"K"L"M"N"O\e(B
@@ -150,6 +156,7 @@
 ;;2360 \e$(6#`#a#b#c#d#e#f#g#h#i#j#k#l#m#n#o\e(B
 ;;2370 \e$(6#p#q#r#s#t#u#v#w#x#y#z#{#|#}#~\e(B
 ;;
+;;     0123456789abcdef
 ;;2320  \e$(6$!$"$#$$$%$&$'$($)$*$+$,$-$.$/\e(B
 ;;2430 \e$(6$0$1$2$3$4$5$6$7$8$9$:$;$<$=$>$?\e(B
 ;;2440 \e$(6$@$A$B$C$D$E$F$G$H$I$J$K$L$M$N$O\e(B
@@ -258,7 +265,7 @@
     (?\e$(5"!\e(B . nil)
     (?\e$(5""\e(B . nil)
     (?\e$(5"#\e(B . nil)
-    (?\e$(5"$\e(B . nil)
+    (?\e$(5"$\e(B . ?\e$(6"$\e(B)
     (?\e$(5"%\e(B . ?\e$(6"%\e(B)
     (?\e$(5"&\e(B . ?\e$(6"&\e(B)
     (?\e$(5"'\e(B . nil)
@@ -315,7 +322,7 @@
     (?\e$(5"Z\e(B . nil)
     (?\e$(5"[\e(B . nil)
     (?\e$(5"\\e(B . nil)
-    (?\e$(5"]\e(B . nil)
+    (?\e$(5"]\e(B . ?\e$(6"]\e(B)
     (?\e$(5"^\e(B . nil)
     (?\e$(5"_\e(B . nil)
     (?\e$(5"`\e(B . ?\e$(6"`\e(B)
@@ -329,7 +336,7 @@
     (?\e$(5"h\e(B . ?\e$(6"h\e(B)
     (?\e$(5"i\e(B . ?\e$(6"i\e(B)
     (?\e$(5"j\e(B . ?\e$(6"j\e(B)
-    (?\e$(5"k\e(B . nil)
+    (?\e$(5"k\e(B . ?\e$(6"k\e(B)
     (?\e$(5"l\e(B . ?\e$(6"l\e(B)
     (?\e$(5"m\e(B . ?\e$(6"m\e(B)
     (?\e$(5"n\e(B . nil)
@@ -354,11 +361,11 @@
     (?\e$(5##\e(B . nil)
     (?\e$(5#$\e(B . nil)
     (?\e$(5#%\e(B . nil)
-    (?\e$(5#&\e(B . ?\e$(6#&\e(B)
-    (?\e$(5#'\e(B . ?\e$(6#'\e(B)
+    (?\e$(5#&\e(B . nil)
+    (?\e$(5#'\e(B . nil)
     (?\e$(5#(\e(B . nil)
     (?\e$(5#)\e(B . nil)
-    (?\e$(5#*\e(B . ?\e$(6#*\e(B)
+    (?\e$(5#*\e(B . nil)
     (?\e$(5#+\e(B . nil)
     (?\e$(5#,\e(B . nil)
     (?\e$(5#-\e(B . nil)
@@ -391,9 +398,9 @@
     (?\e$(5#H\e(B . nil)
     (?\e$(5#I\e(B . nil)
     (?\e$(5#J\e(B . ?\e$(6#J\e(B)
-    (?\e$(5#K\e(B . nil)
-    (?\e$(5#L\e(B . nil)
-    (?\e$(5#M\e(B . nil)
+    (?\e$(5#K\e(B . ?\e$(6#K\e(B)
+    (?\e$(5#L\e(B . ?\e$(6#L\e(B)
+    (?\e$(5#M\e(B . ?\e$(6#M\e(B)
     (?\e$(5#N\e(B . nil)
     (?\e$(5#O\e(B . nil)
     (?\e$(5#P\e(B . nil)