From: John Mandereau <john.mandereau@gmail.com>
Date: Sun, 24 Jun 2007 11:57:30 +0000 (+0200)
Subject: Quickly fix German macros.itexi
X-Git-Tag: release/2.11.28-1~77
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1175a3b8062049d4eaae383fa77f1bc842806300;p=lilypond.git

Quickly fix German macros.itexi

German quotes are not yet supported by texinfo.tex; this will be fixed
when ec* fonts are used.
---

diff --git a/Documentation/de/user/macros.itexi b/Documentation/de/user/macros.itexi
index 6aa222e313..295a4689f8 100644
--- a/Documentation/de/user/macros.itexi
+++ b/Documentation/de/user/macros.itexi
@@ -250,63 +250,26 @@ internals document, @internalsref{\NAME\}
 user manual, @internalsref{\NAME\}
 @end macro
 
+@c ecrm char codes
+@c but texinfo.tex uses cm
+@c FIXME
 @tex
-% from german.sty
-\def\allowhyphens{%
-  \penalty\@M
-  \hskip\z@skip}
-
-\gdef\set@low@box#1{%
-  \setbox\tw@\hbox{,}%
-  \setbox\z@\hbox{#1}%
-  \setbox\z@\hbox{%
-    \dimen@\ht\z@
-    \advance\dimen@ -\ht\tw@
-    \lower\dimen@\box\z@}%
-  \ht\z@\ht\tw@
-  \dp\z@\dp\tw@}
-
-\gdef\save@sf@q#1{%
-  {\ifhmode
-     \edef\@SF{\spacefactor\the\spacefactor}%
-   \else
-     \let\@SF\empty
-   \fi
-   \leavevmode #1
-   \@SF}}
-
-\gdef\glq{%
-  \save@sf@q{%
-    \set@low@box{'\/}%
-    \box\z@
-    \kern-.04em
-    \allowhyphens}}
-\gdef\grq{%
-  \save@sf@q{%
-    \kern-.0125em
-    `%
-    \kern.07em}}
-\gdef\glqq{%
-  \save@sf@q{%
-    \set@low@box{''\/}%
-    \box\z@
-    \kern-.04em
-    \allowhyphens}}
-\gdef\grqq{%
-  \save@sf@q{%
-    \kern-.07em
-    ``%
-    \kern.07em}}
+\gdef\glq{\char015\relax}%
+\gdef\grq{\char140\relax}%
+\gdef\glqq{\char022\relax}%
+\gdef\grqq{\char020\relax}%
 @end tex
 
-@c to get decent quotes in `foo'
+@c to get decent German quotes in `foo'
+@c FIXME: use glq/grq
 @macro q{TEXT}
-@glq\TEXT\@grq
+`\TEXT\'
 @end macro
 
-@c to get decent quotes in ``foo''
+@c to get decent German quotes in ``foo''
+@c FIXME: use glqq/grqq
 @macro qq{TEXT}
-@glqq\TEXT\@grqq
+``\TEXT\''
 @end macro
 
 @end iftex