commit c8dd497b421893e3598faf0729393271715f3074 parent be6ab003e26cba534c99a0c7bc079011fa3ae52f Author: Alexander Burger <abu@software-lab.de> Date: Fri, 29 Jul 2011 10:39:02 +0200 Handling double quotes Diffstat:
| M | lib/tex.l | | | 31 | ++++++++++++++++--------------- |
1 file changed, 16 insertions(+), 15 deletions(-)
diff --git a/lib/tex.l b/lib/tex.l @@ -40,21 +40,22 @@ (and S (prinl)) ) (de texPrin (X) - (for C (chop X) - (cond - ((sub? C "#$%&_{}") - (prin "\\" C) ) - ((sub? C "<²>") - (prin "$" C "$") ) - (T - (prin - (case C - (`(char 8364) "\\EUR") - ("\"" "\\char34") - ("\\" "$\\backslash$") - ("\^" "\\char94") - ("~" "\\char126") - (T C) ) ) ) ) ) ) ) + (let Q NIL + (for C (chop X) + (cond + ((sub? C "#$%&_{}") + (prin "\\" C) ) + ((sub? C "<²>") + (prin "$" C "$") ) + (T + (prin + (case C + (`(char 8364) "\\EUR") + ("\"" (if (onOff Q) "``" "''")) + ("\\" "$\\backslash$") + ("\^" "\\char94") + ("~" "\\char126") + (T C) ) ) ) ) ) ) ) ### TeX Document ###