From: Kenichi Handa <handa@m17n.org>
Date: Tue, 11 Feb 2003 02:32:33 +0000 (+0000)
Subject: (devanagari-composable-pattern): Add DANDA character.
X-Git-Tag: ttn-vms-21-2-B4~11256
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8dcc539d8a31434a4ddec3603a46c8584927c652;p=emacs.git

(devanagari-composable-pattern): Add DANDA character.
(dev-char-glyph): Add an entry for DANDA.
---

diff --git a/lisp/language/devan-util.el b/lisp/language/devan-util.el
index 66afd539caf..62a59787adc 100644
--- a/lisp/language/devan-util.el
+++ b/lisp/language/devan-util.el
@@ -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 @@ PATTERN regexp."
     ("$,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" . "")