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