Fixed WriteRemaining(WR) not honoring when a file doesn't end in a new line.

Author: Lethja

xtra/PATCH.LUA

@@ -11,11 +11,11 @@ local function patch(pf)
 	local function RW(x)x:seek("set",0)end
 	local function W(s)wl=wl+1 return wf:write(s)end
 	local function WR()if h then if(h.o.l>0 and h.o.s>0)and(h.o.l~=rl-(h.o.s-1)or h.n.l~=wl-(h.n.s-1))then print(M)os.exit(1)else print(P)end end
-		if rf and wf then local r=R()while r do W(r..'\n')r=R()end
-			local function B()local n,f,l=cp:match("(.*)%.[^%.]*")..".bak"f=io.open(n,"a+")
+		if rf and wf then local r,f,l=R()while r do W(r..'\n')r=R()end
+			local function B()local n=cp:match("(.*)%.[^%.]*")..".bak"f=io.open(n,"a+")
 				local function C()RW(f)RW(rf)repeat r,l=R(),rf:read("*l")if r~=l then return 1 end until not r or not l end
 				if f:seek()~=rf:seek()or C()then RW(rf)f:close()f=assert(io.open(n,"w"))r=R()repeat f:write(r..'\n')r=R()until not r end end
-			B()rf:close()rf=assert(io.open(cp,"w"))RW(wf)r=wf:read("*l")repeat rf:write(r.."\n")r=wf:read("*l")until not r wf:close()wf,wl=nil,0 end
+			B()rf:close()rf=assert(io.open(cp,"w"))f,l=0,wf:seek("end")RW(wf)r=wf:read("*l")repeat rf:write(r..(f+#r<l and"\n"or""))f=f+#r r=wf:read("*l")until not r wf:close()wf,wl=nil,0 end
 		rf:close()rf,rl,h=nil,0,nil end
 	local n=pf:read("*l")while n do local l,f=n n=pf:read("*l")f=l:sub(1,1)if f=='+'then
 			if l:sub(2,4)~="++ "then W(l:sub(2)..(n and n:match("^\\ No newline at end of file")and""or'\n'))end