texlive[46137] Build/source/texk/web2c/alephdir: omtrans.ch: small

[commits+hironobu at tug.org]

Revision: 46137
          http://tug.org/svn/texlive?view=revision&revision=46137
Author:   hironobu
Date:     2017-12-25 14:37:03 +0100 (Mon, 25 Dec 2017)
Log Message:
-----------
omtrans.ch: small fix for compatibility with TeX

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/alephdir/ChangeLog
    trunk/Build/source/texk/web2c/alephdir/omtrans.ch

Modified: trunk/Build/source/texk/web2c/alephdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/alephdir/ChangeLog	2017-12-25 01:22:43 UTC (rev 46136)
+++ trunk/Build/source/texk/web2c/alephdir/ChangeLog	2017-12-25 13:37:03 UTC (rev 46137)
@@ -1,3 +1,8 @@
+2017-12-25  Hironobu Yamashita  <h.y.acetaminophen at gmail.com>
+
+	* omtrans.ch (omega_print): expand \newlinechar for terminal and
+	log output. (Without this, LaTeX error messages contain ^^J.)
+
 2017-12-13  Hironobu Yamashita  <h.y.acetaminophen at gmail.com>
 
 	* om16bit.ch: \show\odelimiter should be \odelimiter, etc.

Modified: trunk/Build/source/texk/web2c/alephdir/omtrans.ch
===================================================================
--- trunk/Build/source/texk/web2c/alephdir/omtrans.ch	2017-12-25 01:22:43 UTC (rev 46136)
+++ trunk/Build/source/texk/web2c/alephdir/omtrans.ch	2017-12-25 13:37:03 UTC (rev 46137)
@@ -303,7 +303,9 @@
   j:=str_start(s);
   while j<str_start(s+1) do begin
     new_s:=so(str_pool[j]);
-    if new_s<@"20 then begin
+    if (new_s=new_line_char)and(selector<pseudo) then
+      print_ln {added, to be more compatible with TeX}
+    else if new_s<@"20 then begin
       print_char(@"5E); print_char(@"5E); print_char(new_s+@'100);
       end
     else if new_s<@"7F then