(devanagari-composable-pattern): Add DANDA character.

(dev-char-glyph): Add an entry for DANDA.

1 files changed, 2 insertions, 2 deletions

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" . "")