(in-is13194): Give correct `safe-chars' property.

(devanagari): Define it as an alias of in-is13194.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cf4148b88ca756027545d5be8110166eb83944d5..61378cf2c09deaf2671d8f5474bad1268f6d8abc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,11 @@
 2002-07-30  Kenichi Handa  <handa@etl.go.jp>
 
+       * language/indian.el (in-is13194): Give correct `safe-chars' property.
+       (devanagari): Define it as an alias of in-is13194.
+
+       * international/mule.el (safe-chars): Put
+       `char-table-extra-slots' property with value 0.
+
        * files.el (revert-buffer): Fix previous change.
 
 2002-07-29  Richard M. Stallman  <rms@gnu.org>

diff --git a/lisp/language/indian.el b/lisp/language/indian.el
index 474ac74dd06db5c0d5a56d149c1c5e0d153cd68e..697d599ce6045c8dd1b400a45d9a9759442219d6 100644 (file)
--- a/lisp/language/indian.el
+++ b/lisp/language/indian.el
@@ -34,10 +34,17 @@
  "8-bit encoding for ASCII (MSB=0) and IS13194-Devanagari (MSB=1)."
  '(ascii indian-is13194 nil nil
    nil ascii-eol)
- '((safe-charsets ascii indian-is13194)
+ `((safe-chars . ,(let ((table (make-char-table 'safe-chars nil)))
+                   (set-char-table-range table 'indian-is13194 t)
+                   (dotimes (i 127)
+                     (aset table i t)
+                     (aset table (decode-char 'ucs (+ #x900 i)) t))
+                   table))
    (post-read-conversion . in-is13194-post-read-conversion)
    (pre-write-conversion . in-is13194-pre-write-conversion)))
 
+(define-coding-system-alias 'devanagari 'in-is13194)
+
 (defvar indian-script-table
   '[
     devanagari