diff options
Diffstat (limited to 'lisp/language')
| -rw-r--r-- | lisp/language/devan-util.el | 341 |
1 files changed, 171 insertions, 170 deletions
diff --git a/lisp/language/devan-util.el b/lisp/language/devan-util.el index d8f8454fb84..a38cdc2ffc7 100644 --- a/lisp/language/devan-util.el +++ b/lisp/language/devan-util.el @@ -31,6 +31,7 @@ ;;; Code: +;;;###autoload ;; Devanagari Composable Pattern ;; C .. Consonants @@ -155,250 +156,250 @@ PATTERN regexp." (defvar dev-char-glyph '(("$,15E(B" . "$,4 K(B") - ("$,15F(B" . "$,4 K\"(B)") - ("$,15~(B" . "$,4\"(B)") + ("$,15F(B" . "$,4 K")(B") + ("$,15~(B" . "$,4")(B") ("$,15G(B" . "$,4 \(B") - ("$,15(B" . "$,4\"(B*") - ("$,155A(B" . "$,4\"(B*\$,4\"(B&") + ("$,15(B" . "$,4"*(B") + ("$,155A(B" . "$,4"*(B\$,4"&(B") ("$,15H(B" . "$,4 \"'(B") - ("$,15H5A(B" . "$,4 \"'\"(B&") - ("$,16 (B" . "$,4\"(B2") - ("$,16 5A(B" . "$,4\"2\"&(B") + ("$,15H5A(B" . "$,4 \"'"&(B") + ("$,16 (B" . "$,4"2(B") + ("$,16 5A(B" . "$,4"2"&(B") ("$,15I(B" . "$,4 ](B") - ("$,16!(B" . "$,4\"(B6") - ("$,15J(B" . "$,4 ^\"(BP") - ("$,16"(B" . "$,4\"(B:") - ("$,15K(B" . "$,4 `\"(BQ") - ("$,16#(B" . "$,4\"(B>") + ("$,16!(B" . "$,4"6(B") + ("$,15J(B" . "$,4 ^"P(B") + ("$,16"(B" . "$,4":(B") + ("$,15K(B" . "$,4 `"Q(B") + ("$,16#(B" . "$,4">(B") ;;("$,15L(B" . nil) ; not implemented. - ("$,16$(B" . "$,4\"(B?") - ("$,15M(B" . "$,4 b\"(BL") - ("$,15M5A(B" . "$,4 b\"(B$") - ("$,15M5B(B" . "$,4 b\"(B$") - ("$,16%(B" . "\$,4\"(BL") - ("$,15N(B" . "$,4 b\"(B@") - ("$,15N5A(B" . "$,4 b\"@\"&(B") - ("$,16&(B" . "\$,4\"(B@") - ("$,16&5A(B" . "\$,4\"(B@\$,4\"(B&") + ("$,16$(B" . "$,4"?(B") + ("$,15M(B" . "$,4 b"L(B") + ("$,15M5A(B" . "$,4 b"$(B") + ("$,15M5B(B" . "$,4 b"$(B") + ("$,16%(B" . "\$,4"L(B") + ("$,15N(B" . "$,4 b"@(B") + ("$,15N5A(B" . "$,4 b"@"&(B") + ("$,16&(B" . "\$,4"@(B") + ("$,16&5A(B" . "\$,4"@(B\$,4"&(B") ("$,15O(B" . "$,4 b(B") - ("$,16'(B" . "\$,4\"(BD") - ("$,16'5A(B" . "\$,4\"(BD\$,4\"(B&") - ("$,15P(B" . "$,4 b\"(BD") - ("$,15P5A(B" . "$,4 b\"D\"&(B") - ("$,16((B" . "\$,4\"(BH") - ("$,16(5A(B" . "\$,4\"(BH\$,4\"(B&") - ("$,15Q(B" . "$,4 K\")\"L(B") ;; special rule for reodering. - ("$,15Q5A(B" . "$,4 K\")\"$(B") - ("$,15Q5B(B" . "$,4 K\")\"$(B") - ("$,16)(B" . "\$,4\")\"L(B") - ("$,16)5A(B" . "\$,4\")\"$(B") - ("$,16)5B(B" . "\$,4\")\"$(B") - ("$,15R(B" . "$,4 K\")\"@(B") - ("$,15R5A(B" . "$,4 K\")\"@\"(B&") - ("$,16*(B" . "\$,4\")\"@(B") - ("$,16*5A(B" . "\$,4\")\"@\"(B&") - ("$,15S(B" . "$,4 K\")\"D(B") - ("$,15S5A(B" . "$,4 K\")\"D\"(B&") - ("$,16+(B" . "\$,4\")\"D(B") - ("$,16+5A(B" . "\$,4\")\"D\"(B&") - ("$,15T(B" . "$,4 K\")\"H(B") - ("$,15T5A(B" . "$,4 K\")\"H\"(B&") - ("$,16,(B" . "\$,4\")\"H(B") - ("$,16,5A(B" . "\$,4\")\"H\"(B&") - ("$,16@(B" . "$,4 a\"(BQ") + ("$,16'(B" . "\$,4"D(B") + ("$,16'5A(B" . "\$,4"D(B\$,4"&(B") + ("$,15P(B" . "$,4 b"D(B") + ("$,15P5A(B" . "$,4 b"D"&(B") + ("$,16((B" . "\$,4"H(B") + ("$,16(5A(B" . "\$,4"H(B\$,4"&(B") + ("$,15Q(B" . "$,4 K")"L(B") ;; special rule for reodering. + ("$,15Q5A(B" . "$,4 K")"$(B") + ("$,15Q5B(B" . "$,4 K")"$(B") + ("$,16)(B" . "\$,4")"L(B") + ("$,16)5A(B" . "\$,4")"$(B") + ("$,16)5B(B" . "\$,4")"$(B") + ("$,15R(B" . "$,4 K")"@(B") + ("$,15R5A(B" . "$,4 K")"@"&(B") + ("$,16*(B" . "\$,4")"@(B") + ("$,16*5A(B" . "\$,4")"@"&(B") + ("$,15S(B" . "$,4 K")"D(B") + ("$,15S5A(B" . "$,4 K")"D"&(B") + ("$,16+(B" . "\$,4")"D(B") + ("$,16+5A(B" . "\$,4")"D"&(B") + ("$,15T(B" . "$,4 K")"H(B") + ("$,15T5A(B" . "$,4 K")"H"&(B") + ("$,16,(B" . "\$,4")"H(B") + ("$,16,5A(B" . "\$,4")"H"&(B") + ("$,16@(B" . "$,4 a"Q(B") ;;("$,16B(B" . nil) ;;("$,16A(B" . nil) ;;("$,16C(B" . nil) ;; GRUTTALS - ("$,15U(B" . "$,4 e\"(BR") + ("$,15U(B" . "$,4 e"R(B") ("$,15U6-(B" . "$,4 c(B") - ("$,15U6-5p(B" . "$,4 g\"(BR") - ("$,15U6-5d(B" . "$,4 h\"(BR") - ("$,15U6-5w(B" . "$,4 i\"(B)") + ("$,15U6-5p(B" . "$,4 g"R(B") + ("$,15U6-5d(B" . "$,4 h"R(B") + ("$,15U6-5w(B" . "$,4 i")(B") ("$,15U6-5w6-(B" . "$,4 i(B") - ("$,15V(B" . "$,4 j\"(B)") + ("$,15V(B" . "$,4 j")(B") ("$,15V6-(B" . "$,4 j(B") - ("$,15V6-5p(B" . "$,4 l\"(B)") + ("$,15V6-5p(B" . "$,4 l")(B") ("$,15V6-5p6-(B" . "$,4 l(B") - ("$,15W(B" . "$,4 m\"(B)") + ("$,15W(B" . "$,4 m")(B") ("$,15W6-(B" . "$,4 m(B") - ("$,15W6-5p(B" . "$,4 o\"(B)") + ("$,15W6-5p(B" . "$,4 o")(B") ("$,15W6-5p6-(B" . "$,4 o(B") - ("$,15X(B" . "$,4 p\"(B)") + ("$,15X(B" . "$,4 p")(B") ("$,15X6-(B" . "$,4 p(B") - ("$,15X6-5p(B" . "$,4 q\"(B)") + ("$,15X6-5p(B" . "$,4 q")(B") ("$,15X6-5p6-(B" . "$,4 q(B") - ("$,15Y(B" . "$,4 r\"(BS") + ("$,15Y(B" . "$,4 r"S(B") ;; PALATALS - ("$,15Z(B" . "$,4 s\"(B)") + ("$,15Z(B" . "$,4 s")(B") ("$,15Z6-(B" . "$,4 s(B") - ("$,15Z6-5p(B" . "$,4 t\"(B)") + ("$,15Z6-5p(B" . "$,4 t")(B") ("$,15Z6-5p6-(B" . "$,4 t(B") - ("$,15[(B" . "$,4 u\"(BT") + ("$,15[(B" . "$,4 u"T(B") - ("$,15\(B" . "$,4 v\"(B)") + ("$,15\(B" . "$,4 v")(B") ("$,15\6-(B" . "$,4 v(B") - ("$,15\6-5p(B" . "$,4 x\"(B)") + ("$,15\6-5p(B" . "$,4 x")(B") ("$,15\6-5p6-(B" . "$,4 x(B") - ("$,15\6-5^(B" . "$,4 y\"(B)") + ("$,15\6-5^(B" . "$,4 y")(B") ("$,15\6-5^6-(B" . "$,4 y(B") - ("$,15](B" . "$,4 z\"(B)") + ("$,15](B" . "$,4 z")(B") ("$,15]6-(B" . "$,4 z(B") - ("$,15]6-5p(B" . "$,4 {\"(B)") + ("$,15]6-5p(B" . "$,4 {")(B") ("$,15]6-5p6-(B" . "$,4 {(B") - ("$,15^(B" . "$,4 |\"(B)") + ("$,15^(B" . "$,4 |")(B") ("$,15^6-(B" . "$,4 |(B") ;; CEREBRALS - ("$,15_(B" . "$,4 }\"(BU") - ("$,15_6-5_(B" . "$,4 ~\"(BU") - ("$,15_6-5`(B" . "$,4 \"(BU") + ("$,15_(B" . "$,4 }"U(B") + ("$,15_6-5_(B" . "$,4 ~"U(B") + ("$,15_6-5`(B" . "$,4 "U(B") - ("$,15`(B" . "$,4! \"(BV") - ("$,15`6-5`(B" . "$,4!!\"(BV") + ("$,15`(B" . "$,4! "V(B") + ("$,15`6-5`(B" . "$,4!!"V(B") - ("$,15a(B" . "$,4!\"\"W(B") - ("$,15a6-5a(B" . "$,4!$\"(BW") - ("$,15a6-5b(B" . "$,4!%\"(BW") + ("$,15a(B" . "$,4!""W(B") + ("$,15a6-5a(B" . "$,4!$"W(B") + ("$,15a6-5b(B" . "$,4!%"W(B") - ("$,15b(B" . "$,4!&\"(BX") + ("$,15b(B" . "$,4!&"X(B") - ("$,15c(B" . "$,4!(\"(B)") + ("$,15c(B" . "$,4!(")(B") ("$,15c6-(B" . "$,4!((B") ;; DENTALS - ("$,15d(B" . "$,4!)\"(B)") + ("$,15d(B" . "$,4!)")(B") ("$,15d6-(B" . "$,4!)(B") - ("$,15d6-5p(B" . "$,4!*\"(B)") + ("$,15d6-5p(B" . "$,4!*")(B") ("$,15d6-5p6-(B" . "$,4!*(B") - ("$,15d6-5d(B" . "$,4!+\"(B)") + ("$,15d6-5d(B" . "$,4!+")(B") ("$,15d6-5d6-(B" . "$,4!+(B") - ("$,15e(B" . "$,4!,\"(B)") + ("$,15e(B" . "$,4!,")(B") ("$,15e6-(B" . "$,4!,(B") - ("$,15e6-5p(B" . "$,4!-\"(B)") + ("$,15e6-5p(B" . "$,4!-")(B") ("$,15e6-5p6-(B" . "$,4!-(B") - ("$,15f(B" . "$,4!.\"(BY") - ("$,15f6#(B" . "$,4!/\"(BY") - ("$,15f6-5p(B" . "$,4!0\"(BY") - ("$,15f6-5f(B" . "$,4!1\"(BY") - ("$,15f6-5g(B" . "$,4!2\"(BY") + ("$,15f(B" . "$,4!."Y(B") + ("$,15f6#(B" . "$,4!/"Y(B") + ("$,15f6-5p(B" . "$,4!0"Y(B") + ("$,15f6-5f(B" . "$,4!1"Y(B") + ("$,15f6-5g(B" . "$,4!2"Y(B") ("$,15f6-5n(B" . "$,4!3(B") ("$,15f6-5o(B" . "$,4!4(B") - ("$,15f6-5u(B" . "$,4!5\"(BY") + ("$,15f6-5u(B" . "$,4!5"Y(B") - ("$,15g(B" . "$,4!6\"(B)") + ("$,15g(B" . "$,4!6")(B") ("$,15g6-(B" . "$,4!6(B") - ("$,15g6-5p(B" . "$,4!7\"(B)") + ("$,15g6-5p(B" . "$,4!7")(B") ("$,15g6-5p6-(B" . "$,4!7(B") - ("$,15h(B" . "$,4!8\"(B)") + ("$,15h(B" . "$,4!8")(B") ("$,15h6-(B" . "$,4!8(B") - ("$,15h6-5p(B" . "$,4!9\"(B)") - ("$,15h6-5p6-(B" . "$,4!9\"(B)") - ("$,15h6-5h(B" . "$,4!:\"(B)") + ("$,15h6-5p(B" . "$,4!9")(B") + ("$,15h6-5p6-(B" . "$,4!9")(B") + ("$,15h6-5h(B" . "$,4!:")(B") ("$,15h6-5h6-(B" . "$,4!:(B") - ("$,15i(B" . "$,4!8\"#\")(B") + ("$,15i(B" . "$,4!8"#")(B") ;; LABIALS - ("$,15j(B" . "$,4!;\"(B)") + ("$,15j(B" . "$,4!;")(B") ("$,15j6-(B" . "$,4!;(B") - ("$,15j6-5p(B" . "$,4!<\"(B)") + ("$,15j6-5p(B" . "$,4!<")(B") ("$,15j6-5p6-(B" . "$,4!<(B") - ("$,15k(B" . "$,4!a\"(B[") + ("$,15k(B" . "$,4!a"[(B") ("$,15k6-(B" . "$,4!=(B") - ("$,15k6-5p(B" . "$,4!c\"(B[") + ("$,15k6-5p(B" . "$,4!c"[(B") - ("$,15l(B" . "$,4!d\"(B)") + ("$,15l(B" . "$,4!d")(B") ("$,15l6-(B" . "$,4!d(B") - ("$,15l6-5p(B" . "$,4!e\"(B)") + ("$,15l6-5p(B" . "$,4!e")(B") ("$,15l6-5p6-(B" . "$,4!e(B") - ("$,15m(B" . "$,4!f\"(B)") + ("$,15m(B" . "$,4!f")(B") ("$,15m6-(B" . "$,4!f(B") - ("$,15m6-5p(B" . "$,4!g\"(B)") + ("$,15m6-5p(B" . "$,4!g")(B") ("$,15m6-5p6-(B" . "$,4!g(B") - ("$,15n(B" . "$,4!h\"(B)") + ("$,15n(B" . "$,4!h")(B") ("$,15n6-(B" . "$,4!h(B") - ("$,15n6-5p(B" . "$,4!i\"(B)") + ("$,15n6-5p(B" . "$,4!i")(B") ("$,15n6-5p6-(B" . "$,4!i(B") ;; SEMIVOWELS - ("$,15o(B" . "$,4!j\"(B)") + ("$,15o(B" . "$,4!j")(B") ("$,15o6-(B" . "$,4!j(B") - ("$,15o6-5p(B" . "$,4!k\"(B)") + ("$,15o6-5p(B" . "$,4!k")(B") ("$,15o6-5p6-(B" . "$,4!k(B") ("$,16-5o(B" . "$,4!l(B") ;; when every ohter lig. fails. - ("$,15p(B" . "$,4!n\"(BW") + ("$,15p(B" . "$,4!n"W(B") ;; ("$,15p6-(B" . "\$,4"'(B") ;; special case. only the topmost pos. - ("$,15q(B" . "$,4!n\"#\"W(B") + ("$,15q(B" . "$,4!n"#"W(B") ("$,15q6-(B" . "$,4!m(B") ;; IS 13194 speical rule. - ("$,15p6!(B" . "$,4!o\"(B[") - ("$,15p6"(B" . "$,4!p\"(B\\") + ("$,15p6!(B" . "$,4!o"[(B") + ("$,15p6"(B" . "$,4!p"\(B") - ("$,15r(B" . "$,4!q\"(B)") + ("$,15r(B" . "$,4!q")(B") ("$,15r6-(B" . "$,4!q(B") ("$,15s(B" . "$,4!s(B") ("$,15s6-(B" . "$,4!r(B") - ("$,15t(B" . "$,4!s\"(B#") - ("$,15t6-(B" . "$,4!r\"(B#") + ("$,15t(B" . "$,4!s"#(B") + ("$,15t6-(B" . "$,4!r"#(B") - ("$,15u(B" . "$,4!t\"(B)") + ("$,15u(B" . "$,4!t")(B") ("$,15u6-(B" . "$,4!t(B") - ("$,15u6-5p(B" . "$,4!u\"(B)") + ("$,15u6-5p(B" . "$,4!u")(B") ("$,15u6-5p6-(B" . "$,4!u(B") ;; SIBILANTS - ("$,15v(B" . "$,4!v\"(B)") + ("$,15v(B" . "$,4!v")(B") ("$,15v6-(B" . "$,4!v(B") - ("$,15v6-5u(B" . "$,4!w\"(B)") + ("$,15v6-5u(B" . "$,4!w")(B") ("$,15v6-5u6-(B" . "$,4!w(B") - ("$,15v6-5p(B" . "$,4!x\"(B)") + ("$,15v6-5p(B" . "$,4!x")(B") ("$,15v6-5p6-(B" . "$,4!x(B") - ("$,15w(B" . "$,4!y\"(B)") + ("$,15w(B" . "$,4!y")(B") ("$,15w6-(B" . "$,4!y(B") - ("$,15x(B" . "$,4!z\"(B)") + ("$,15x(B" . "$,4!z")(B") ("$,15x6-(B" . "$,4!z(B") - ("$,15x6-5p(B" . "$,4!{\"(B)") + ("$,15x6-5p(B" . "$,4!{")(B") ("$,15x6-5p6-(B" . "$,4!{(B") ("$,15y(B" . "$,4!}(B") ("$,15y6-(B" . "$,4!|(B") ("$,15y6#(B" . "$,4!~(B") ("$,15y6-5p(B" . "$,4!(B") - ("$,15y6-5n(B" . "$,4\"(B ") - ("$,15y6-5o(B" . "$,4\"(B!") + ("$,15y6-5n(B" . "$,4" (B") + ("$,15y6-5o(B" . "$,4"!(B") ;; NUKTAS - ("$,168(B" . "$,4 f\"R\"S(B") + ("$,168(B" . "$,4 f"R"S(B") ("$,1686-(B" . "$,4 d(B") - ("$,169(B" . "$,4 k\"(B)") + ("$,169(B" . "$,4 k")(B") ("$,1696-(B" . "$,4 k(B") - ("$,16:(B" . "$,4 n\"(B)") + ("$,16:(B" . "$,4 n")(B") ("$,16:6-(B" . "$,4 n(B") - ("$,16;(B" . "$,4 w\"(B)") + ("$,16;(B" . "$,4 w")(B") ("$,16;6-(B" . "$,4 w(B") - ("$,16<(B" . "$,4!#\"(BW") - ("$,16=(B" . "$,4!'\"(BX") - ("$,16>(B" . "$,4!b\"(B[") + ("$,16<(B" . "$,4!#"W(B") + ("$,16=(B" . "$,4!'"X(B") + ("$,16>(B" . "$,4!b"[(B") ("$,16>6-(B" . "$,4!>(B") - ("$,16?(B" . "$,4!j\"#\")(B") + ("$,16?(B" . "$,4!j"#")(B") ;; misc modifiers. - ("$,15A(B" . "\$,4\"(B$") - ("$,15B(B" . "\$,4\"(B&") + ("$,15A(B" . "\$,4"$(B") + ("$,15B(B" . "\$,4"&(B") ("$,15C(B" . "$,4 F(B") - ("$,15|(B" . "$,4\"(B#") + ("$,15|(B" . "$,4"#(B") ("$,15}(B" . "$,4 E(B") - ("$,16-(B" . "$,4\"\"(B") - ("$,16-5p(B" . "$,4\"(B%") ;; following "r" + ("$,16-(B" . "$,4""(B") + ("$,16-5p(B" . "$,4"%(B") ;; following "r" ;; ("$,160(B" . "$,4 D(B") ;; ("$,16D(B" . "$,4 J(B") ;; ("$,16F(B" . "") @@ -430,32 +431,32 @@ preferred rule from the sanskrit fonts." ) ;; [consonant/nukta] - [matra/halant] - [preceding-r] - [anuswar]. (defvar dev-glyph-glyph - '(("\$,4\"(B'\$,4\"(B&" . "\$,4\"(B(") - ("\$,4\"(B'\$,4\"(B$" . "\$,4\"(B(") - ("$,4\"(B*\$,4\"(B&" . "$,4\"(B+") - ("$,4\"(B*\$,4\"(B'" . "$,4\"(B,") - ("$,4\"(B*\$,4\"(B'\$,4\"(B&" . "$,4\"(B-") - ("$,4\"(B2\$,4\"(B&" . "$,4\"(B3") - ("$,4\"(B2\$,4\"(B'" . "$,4\"(B4") - ("$,4\"(B2\$,4\"(B'\$,4\"(B&" . "$,4\"(B5") - ("$,4\"(B#\$,4\"(B6" . "$,4\"(B7") - ("$,4\"(B%\$,4\"(B6" . "$,4\"(B8") - ;;("$,4\"(B6" . "$,4\"(B9") - ("$,4\"(B#\$,4\"(B:" . "$,4\"(B;") - ("$,4\"(B%\$,4\"(B:" . "$,4\"(B<") - ;;("$,4\"(B:" . "$,4\"(B=") - ("\$,4\"(B@\$,4\"(B&" . "\$,4\"(BA") - ("\$,4\"(B@\$,4\"(B'" . "\$,4\"(BB") - ("\$,4\"(B@\$,4\"(B'\$,4\"(B&" . "\$,4\"(BC") - ("\$,4\"(BD\$,4\"(B&" . "\$,4\"(BE") - ("\$,4\"(BD\$,4\"(B'" . "\$,4\"(BF") - ("\$,4\"(BD\$,4\"(B'\$,4\"(B&" . "\$,4\"(BG") - ("\$,4\"(BH\$,4\"(B&" . "\$,4\"(BI") - ("\$,4\"(BH\$,4\"(B'" . "\$,4\"(BJ") - ("\$,4\"(BH\$,4\"(B'\$,4\"(B&" . "\$,4\"(BK") - ("\$,4\"(BL\$,4\"(B&" . "\$,4\"(BM") - ("\$,4\"(BL\$,4\"(B'" . "\$,4\"(BN") - ("\$,4\"(BL\$,4\"(B'\$,4\"(B&" . "\$,4\"(BO") + '(("\$,4"'(B\$,4"&(B" . "\$,4"((B") + ("\$,4"'(B\$,4"$(B" . "\$,4"((B") + ("$,4"*(B\$,4"&(B" . "$,4"+(B") + ("$,4"*(B\$,4"'(B" . "$,4",(B") + ("$,4"*(B\$,4"'(B\$,4"&(B" . "$,4"-(B") + ("$,4"2(B\$,4"&(B" . "$,4"3(B") + ("$,4"2(B\$,4"'(B" . "$,4"4(B") + ("$,4"2(B\$,4"'(B\$,4"&(B" . "$,4"5(B") + ("$,4"#(B\$,4"6(B" . "$,4"7(B") + ("$,4"%(B\$,4"6(B" . "$,4"8(B") + ;;("$,4"6(B" . "$,4"9(B") + ("$,4"#(B\$,4":(B" . "$,4";(B") + ("$,4"%(B\$,4":(B" . "$,4"<(B") + ;;("$,4":(B" . "$,4"=(B") + ("\$,4"@(B\$,4"&(B" . "\$,4"A(B") + ("\$,4"@(B\$,4"'(B" . "\$,4"B(B") + ("\$,4"@(B\$,4"'(B\$,4"&(B" . "\$,4"C(B") + ("\$,4"D(B\$,4"&(B" . "\$,4"E(B") + ("\$,4"D(B\$,4"'(B" . "\$,4"F(B") + ("\$,4"D(B\$,4"'(B\$,4"&(B" . "\$,4"G(B") + ("\$,4"H(B\$,4"&(B" . "\$,4"I(B") + ("\$,4"H(B\$,4"'(B" . "\$,4"J(B") + ("\$,4"H(B\$,4"'(B\$,4"&(B" . "\$,4"K(B") + ("\$,4"L(B\$,4"&(B" . "\$,4"M(B") + ("\$,4"L(B\$,4"'(B" . "\$,4"N(B") + ("\$,4"L(B\$,4"'(B\$,4"&(B" . "\$,4"O(B") )) (defvar dev-glyph-glyph-hash (let* ((hash (makehash 'equal))) @@ -468,10 +469,10 @@ preferred rule from the sanskrit fonts." ) ;; yet another glyph-to-glyph conversions. (defvar dev-glyph-glyph-2 - '(("$,4\"(B*" . "$,4\"(B.") - ("$,4\"(B+" . "$,4\"(B/") - ("$,4\"(B," . "$,4\"(B0") - ("$,4\"(B-" . "$,4\"(B1"))) + '(("$,4"*(B" . "$,4".(B") + ("$,4"+(B" . "$,4"/(B") + ("$,4",(B" . "$,4"0(B") + ("$,4"-(B" . "$,4"1(B"))) (defvar dev-glyph-glyph-2-hash (let* ((hash (makehash 'equal))) (mapc (function (lambda (x) (puthash (car x) (cdr x) hash))) @@ -586,9 +587,9 @@ preferred rule from the sanskrit fonts." ) (if preceding-r (if last-modifier (setq glyph-str (concat (substring glyph-str 0 -1) - "$,4\"(B'" (substring glyph-str -1))) - (setq glyph-str (concat glyph-str "$,4\"(B'")))) - (if last-halant (setq glyph-str (concat glyph-str "$,4\"\"(B"))) + "$,4"'(B" (substring glyph-str -1))) + (setq glyph-str (concat glyph-str "$,4"'(B")))) + (if last-halant (setq glyph-str (concat glyph-str "$,4""(B"))) ;;; *** glyph-to-glyph conversion *** (when (string-match dev-glyph-glyph-regexp glyph-str) (setq glyph-str @@ -602,7 +603,7 @@ preferred rule from the sanskrit fonts." ) dev-glyph-glyph-2-hash) nil t glyph-str)))) ;;; *** glyph reordering *** - (while (setq split-pos (string-match "$,4\"\"(B\\|.$" glyph-str)) + (while (setq split-pos (string-match "$,4""(B\\|.$" glyph-str)) (setq glyph-block (substring glyph-str 0 (1+ split-pos))) (setq glyph-str (substring glyph-str (1+ split-pos))) (setq |