summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/ptexdir/pbibtex.ch
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2011-08-29 13:16:40 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2011-08-29 13:16:40 +0000
commit59534d24d2dee438cbcb9ba66d178a2dd9388125 (patch)
tree3e7979bc89629446f57fb5c3957554ef5085c0b2 /Build/source/texk/web2c/ptexdir/pbibtex.ch
parent8ba5a3f89f2eb588e98f2dcf8aec12760ae44886 (diff)
(e-)(u)pTeX cleanup
git-svn-id: svn://tug.org/texlive/trunk@23745 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/ptexdir/pbibtex.ch')
-rw-r--r--Build/source/texk/web2c/ptexdir/pbibtex.ch4
1 files changed, 2 insertions, 2 deletions
diff --git a/Build/source/texk/web2c/ptexdir/pbibtex.ch b/Build/source/texk/web2c/ptexdir/pbibtex.ch
index 95ec3d47b91..7cfad468a70 100644
--- a/Build/source/texk/web2c/ptexdir/pbibtex.ch
+++ b/Build/source/texk/web2c/ptexdir/pbibtex.ch
@@ -220,7 +220,7 @@ begin
procedure get_the_top_level_aux_file_name;
label aux_found,@!aux_not_found;
begin
- if (not set_enc_string (0,'EUC')) then uexit(1);
+ if (not set_enc_string (nil,'EUC')) then uexit(1);
@<Process a possible command line@>
@z
@@ -535,7 +535,7 @@ const n_options = 6; {Pascal won't count array lengths for us.}
end; {Else it was a flag; |getopt| has already done the assignment.}
@y
end else if argument_is ('kanji') then begin
- if (not set_enc_string(optarg, 0)) then
+ if (not set_enc_string(optarg, nil)) then
write_ln('Bad kanji encoding "', stringcast(optarg), '".');
end; {Else it was a flag; |getopt| has already done the assignment.}