34 |
"8-bit encoding for ASCII (MSB=0) and IS13194-Devanagari (MSB=1)." |
"8-bit encoding for ASCII (MSB=0) and IS13194-Devanagari (MSB=1)." |
35 |
'(ascii indian-is13194 nil nil |
'(ascii indian-is13194 nil nil |
36 |
nil ascii-eol) |
nil ascii-eol) |
37 |
'((safe-charsets ascii indian-is13194) |
`((safe-chars . ,(let ((table (make-char-table 'safe-chars nil))) |
38 |
|
(set-char-table-range table 'indian-is13194 t) |
39 |
|
(dotimes (i 127) |
40 |
|
(aset table i t) |
41 |
|
(aset table (decode-char 'ucs (+ #x900 i)) t)) |
42 |
|
table)) |
43 |
(post-read-conversion . in-is13194-post-read-conversion) |
(post-read-conversion . in-is13194-post-read-conversion) |
44 |
(pre-write-conversion . in-is13194-pre-write-conversion))) |
(pre-write-conversion . in-is13194-pre-write-conversion))) |
45 |
|
|
46 |
|
(define-coding-system-alias 'devanagari 'in-is13194) |
47 |
|
|
48 |
(defvar indian-script-table |
(defvar indian-script-table |
49 |
'[ |
'[ |
50 |
devanagari |
devanagari |