summaryrefslogtreecommitdiff
path: root/Master/texmf/scripts/tetex
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2008-07-14 19:59:00 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2008-07-14 19:59:00 +0000
commit363d6f39b9e77ea1cab2be3a3b4581136269ceb7 (patch)
treecb1aa7c2384b6cd4c5d1ef3a31a229e7e4aaa1f2 /Master/texmf/scripts/tetex
parent9c1649a037ccb52c5d2a67c9ba2f010809752fe3 (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/scripts/tetex')
-rwxr-xr-xMaster/texmf/scripts/tetex/texdoctk.pl14
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};
}