Mercurial > emacs
changeset 41551:12026034433c
(dev-glyph-glyph, dev-glyph-glyph-2)
(devanagari-compose-syllable-region):
Escape `"' in string literals.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Mon, 26 Nov 2001 11:50:01 +0000 |
| parents | a55ea4046e6f |
| children | 3ff689288698 |
| files | lisp/language/devan-util.el |
| diffstat | 1 files changed, 34 insertions(+), 34 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/language/devan-util.el Mon Nov 26 11:39:36 2001 +0000 +++ b/lisp/language/devan-util.el Mon Nov 26 11:50:01 2001 +0000 @@ -431,32 +431,32 @@ ;; [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"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") + '(("\$,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))) @@ -469,10 +469,10 @@ ;; yet another glyph-to-glyph conversions. (defvar dev-glyph-glyph-2 - '(("$,4"*(B" . "$,4".(B") - ("$,4"+(B" . "$,4"/(B") - ("$,4",(B" . "$,4"0(B") - ("$,4"-(B" . "$,4"1(B"))) + '(("$,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))) @@ -587,9 +587,9 @@ (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 @@ -603,7 +603,7 @@ 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