# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1044930753 0
# Node ID 512864aab842fa6e6c6fb06d5009cc04d5aec685
# Parent  9155d2fdd73cdb1b19045bac4a4476469f16974a
(devanagari-composable-pattern): Add DANDA character.
(dev-char-glyph): Add an entry for DANDA.

diff -r 9155d2fdd73c -r 512864aab842 lisp/language/devan-util.el
--- a/lisp/language/devan-util.el	Tue Feb 11 01:52:01 2003 +0000
+++ b/lisp/language/devan-util.el	Tue Feb 11 02:32:33 2003 +0000
@@ -53,7 +53,7 @@
 
 (defconst devanagari-composable-pattern
   (concat
-   "\\([$,15E(B-$,15T6@6A(B][$,15A5B(B]?\\)\\|$,15C(B"
+   "\\([$,15E(B-$,15T6@6A(B][$,15A5B(B]?\\)\\|[$,15C6D(B]"
    "\\|\\("
    "\\(?:\\(?:[$,15U(B-$,15y68(B-$,16?(B]$,16-(B\\)?\\(?:[$,15U(B-$,15y68(B-$,16?(B]$,16-(B\\)?\\(?:[$,15U(B-$,15y68(B-$,16?(B]$,16-(B\\)?[$,15U(B-$,15y68(B-$,16?(B]$,16-(B\\)?"
    "[$,15U(B-$,15y68(B-$,16?(B]\\(?:$,16-(B\\|[$,15~(B-$,16-6B6C(B]?[$,15B5A(B]?\\)?"
@@ -410,7 +410,7 @@
     ("$,16-(B" . "$,4""(B")
     ("$,16-5p(B" . "$,4"%(B") ;; following "r"
     ;; ("$,160(B" . "$,4 D(B")
-    ;; ("$,16D(B" . "$,4 J(B")
+    ("$,16D(B" . "$,4 J(B")
     ;; ("$,16F(B" . "")
     ;; ("$,16G(B" . "")
     ;; ("$,16H(B" . "")