diff options
| -rw-r--r-- | Build/source/texk/web2c/ChangeLog | 4 | ||||
| -rw-r--r-- | Build/source/texk/web2c/mplibdir/mp.w | 2 | ||||
| -rw-r--r-- | Build/source/texk/web2c/pltotf.ch | 3 | ||||
| -rw-r--r-- | Build/source/texk/web2c/vptovf.ch | 5 |
4 files changed, 8 insertions, 6 deletions
diff --git a/Build/source/texk/web2c/ChangeLog b/Build/source/texk/web2c/ChangeLog index 4f22f9e6a66..650ddabbf12 100644 --- a/Build/source/texk/web2c/ChangeLog +++ b/Build/source/texk/web2c/ChangeLog @@ -1,3 +1,7 @@ +2014-01-06 Peter Breitenlohner <peb@mppmu.mpg.de> + + * pltotf.ch, vptovf.ch: Consistent white space. + 2014-01-02 Peter Breitenlohner <peb@mppmu.mpg.de> * ac/web2c.ac, configure.ac: Use X toolkit for METAFONT only if diff --git a/Build/source/texk/web2c/mplibdir/mp.w b/Build/source/texk/web2c/mplibdir/mp.w index ebd6897e38d..3b9a81e2f74 100644 --- a/Build/source/texk/web2c/mplibdir/mp.w +++ b/Build/source/texk/web2c/mplibdir/mp.w @@ -30068,7 +30068,7 @@ void mp_do_new_internal (MP mp) { set_equiv (cur_sym(), mp->int_ptr); if (internal_name (mp->int_ptr) != NULL) xfree (internal_name (mp->int_ptr)); - set_internal_name (mp->int_ptr, + set_internal_name (mp->int_ptr, mp_xstrdup (mp, mp_str (mp, text (cur_sym())))); if (the_type == mp_string_type) { set_internal_string (mp->int_ptr, mp_rts(mp,"")); diff --git a/Build/source/texk/web2c/pltotf.ch b/Build/source/texk/web2c/pltotf.ch index 921cdaeec79..417fda30907 100644 --- a/Build/source/texk/web2c/pltotf.ch +++ b/Build/source/texk/web2c/pltotf.ch @@ -34,8 +34,7 @@ procedure initialize; {this procedure gets things started properly} @<Define |parse_arguments|@> procedure initialize; {this procedure gets things started properly} var @<Local variables for initialization@>@/ -begin - kpse_set_program_name (argv[0], my_name); + begin kpse_set_program_name (argv[0], my_name); parse_arguments; @z diff --git a/Build/source/texk/web2c/vptovf.ch b/Build/source/texk/web2c/vptovf.ch index 333f132c51c..7c3c4abffb0 100644 --- a/Build/source/texk/web2c/vptovf.ch +++ b/Build/source/texk/web2c/vptovf.ch @@ -23,9 +23,8 @@ procedure initialize; {this procedure gets things started properly} @<Define |parse_arguments|@> procedure initialize; {this procedure gets things started properly} var @<Local variables for initialization@>@/ - begin - kpse_set_program_name (argv[0], my_name); - parse_arguments; + begin kpse_set_program_name (argv[0], my_name); + parse_arguments; @z @x [3] Increase constants. |