diff options
| author | Siep Kroonenberg <siepo@cybercomm.nl> | 2008-07-14 19:59:00 +0000 |
|---|---|---|
| committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2008-07-14 19:59:00 +0000 |
| commit | 363d6f39b9e77ea1cab2be3a3b4581136269ceb7 (patch) | |
| tree | cb1aa7c2384b6cd4c5d1ef3a31a229e7e4aaa1f2 /Master/texmf | |
| parent | 9c1649a037ccb52c5d2a67c9ba2f010809752fe3 (diff) | |
texdoctk: use %USERPROFILE% for location rc file under win32
git-svn-id: svn://tug.org/texlive/trunk@9554 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf')
| -rwxr-xr-x | Master/texmf/scripts/tetex/texdoctk.pl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/Master/texmf/scripts/tetex/texdoctk.pl b/Master/texmf/scripts/tetex/texdoctk.pl index 147553a1a1c..08c527e521d 100755 --- a/Master/texmf/scripts/tetex/texdoctk.pl +++ b/Master/texmf/scripts/tetex/texdoctk.pl @@ -48,11 +48,11 @@ my $CmdConsole="xterm -e "; if ($IsWin32) { $qq = "\""; - $HomeEnv = &GetHomeDir; + $HomeEnv = $ENV{'USERPROFILE'}; chomp $HomeEnv; $TeXDocRcDefaults = "texdocrc-win32.defaults"; $TempDir = &GetTempPath; - $CmdConsole = "command /c "; + $CmdConsole = "cmd /c "; } my $myrc="${HomeEnv}/.texdocrc"; # optional personal settings file @@ -370,13 +370,13 @@ sub viewslc { ($dummy[-1] =~ /ps/) && do { $viewer=$ps_viewer; last DOC_FORMAT; }; ($dummy[-1] =~ /pdf/) && do { $viewer=$pdf_viewer; last DOC_FORMAT; }; ($dummy[-1] =~ /txt/ || $dummy[-1] =~ /faq$/) && do { - $viewer=($txt_viewer eq "TDK_OWN" || + $viewer=($txt_viewer eq "TDK_OWN" || $txt_viewer =~ /xterm/) ? $txt_viewer : "${CmdConsole} $txt_viewer"; last DOC_FORMAT; }; ($dummy[-1] =~ /README/i || $dummy[-2] =~ /\/README$/i) && do { - $viewer=($txt_viewer eq "TDK_OWN" || + $viewer=($txt_viewer eq "TDK_OWN" || $txt_viewer =~ /xterm/) ? $txt_viewer : "${CmdConsole} $txt_viewer"; last DOC_FORMAT; @@ -395,7 +395,7 @@ sub viewslc { }; # some packages have no normal documentation but useful info in the .sty ($dummy[-1] =~ /sty$/) && do { - $viewer=($txt_viewer eq "TDK_OWN" || + $viewer=($txt_viewer eq "TDK_OWN" || $txt_viewer =~ /xterm/) ? $txt_viewer : "${CmdConsole} $txt_viewer"; $slc="../tex/$slc"; # .sty files are in ${tex,local}docpath/../tex/ @@ -411,7 +411,7 @@ sub viewslc { if ($viewer eq "") { if ($xfmt_viewer == 1) { &popmsg(-1,'Unknown format; assuming plain text.',$parframe); - $viewer=($txt_viewer eq "TDK_OWN" || + $viewer=($txt_viewer eq "TDK_OWN" || $txt_viewer =~ /xterm/) ? $txt_viewer : "${CmdConsole} $txt_viewer"; } else { @@ -1204,7 +1204,7 @@ sub settings { $_->configure(%butcol); } } - if ($txt_viewer eq "" && + if ($txt_viewer eq "" && defined $ENV{PAGER}) { $txt_viewer=$ENV{PAGER}; } |