From 8805e6492e3269fb1c6688686c74046a0aff1108 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 30 Jul 2002 06:35:51 +0000 Subject: [PATCH] (in-is13194): Give correct `safe-chars' property. (devanagari): Define it as an alias of in-is13194. --- lisp/ChangeLog | 6 ++++++ lisp/language/indian.el | 9 ++++++++- 2 files changed, 14 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cf4148b88ca..61378cf2c09 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,11 @@ 2002-07-30 Kenichi Handa + * 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 diff --git a/lisp/language/indian.el b/lisp/language/indian.el index 474ac74dd06..697d599ce60 100644 --- 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 -- 2.39.5