CVSROOT: /cvsroot/auctex
Module name: auctex
Changes by: Ralf Angeli <angeli> 10/08/29 18:33:17
Index: preview-dtxdoc.pl
===================================================================
RCS file: /cvsroot/auctex/auctex/doc/preview-dtxdoc.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- preview-dtxdoc.pl 3 Feb 2008 15:18:38 -0000 1.3
+++ preview-dtxdoc.pl 29 Aug 2010 18:33:17 -0000 1.4
@@ -104,9 +104,9 @@
# Braces WITHIN bars should be escaped like so: @{ @}
# and |..| translates to @code{..} or @file{..} depending on content
# and to .. if in {quote}
- split /\|/;
+ @chunks = split /\|/;
$odd=0;
- COMMAND: foreach (@_) {
+ COMMAND: foreach (@chunks) {
if ($odd==0) {
$odd=1;
} else {
@@ -122,7 +122,7 @@
$odd=0;
}
}
- $_=join("",@_);
+ $_=join("",@chunks);
# Argh! mixed types occurs in @code{....@var{..}@file{..}
# Should be @file{...@var{..}..}
s/\...@code(\S*?)\}(\S*)\...@file\{/\...@file$1$2/g;
_______________________________________________
auctex-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/auctex-diffs
