(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 66afd539cafea871f2728595ba642e208b62f15a..62a59787adc35c3533357051c93b997ad68a73bb 100644 (file)
--- a/lisp/language/devan-util.el
+++ b/lisp/language/devan-util.el
@@ -53,7 +53,7 @@
 
 (defconst devanagari-composable-pattern
   (concat
-   "\\([\e$,15E\e(B-\e$,15T6@6A\e(B][\e$,15A5B\e(B]?\\)\\|\e$,15C\e(B"
+   "\\([\e$,15E\e(B-\e$,15T6@6A\e(B][\e$,15A5B\e(B]?\\)\\|[\e$,15C6D\e(B]"
    "\\|\\("
    "\\(?:\\(?:[\e$,15U\e(B-\e$,15y68\e(B-\e$,16?\e(B]\e$,16-\e(B\\)?\\(?:[\e$,15U\e(B-\e$,15y68\e(B-\e$,16?\e(B]\e$,16-\e(B\\)?\\(?:[\e$,15U\e(B-\e$,15y68\e(B-\e$,16?\e(B]\e$,16-\e(B\\)?[\e$,15U\e(B-\e$,15y68\e(B-\e$,16?\e(B]\e$,16-\e(B\\)?"
    "[\e$,15U\e(B-\e$,15y68\e(B-\e$,16?\e(B]\\(?:\e$,16-\e(B\\|[\e$,15~\e(B-\e$,16-6B6C\e(B]?[\e$,15B5A\e(B]?\\)?"
@@ -410,7 +410,7 @@ PATTERN regexp."
     ("\e$,16-\e(B" . "\e$,4""\e(B")
     ("\e$,16-5p\e(B" . "\e$,4"%\e(B") ;; following "r"
     ;; ("\e$,160\e(B" . "\e$,4 D\e(B")
-    ;; ("\e$,16D\e(B" . "\e$,4 J\e(B")
+    ("\e$,16D\e(B" . "\e$,4 J\e(B")
     ;; ("\e$,16F\e(B" . "")
     ;; ("\e$,16G\e(B" . "")
     ;; ("\e$,16H\e(B" . "")