# HG changeset patch # User steveb # Date 897890431 0 # Mon Jun 15 06:00:31 1998 +0000 # Node ID 763596a22b178e348b97de248ccd446fe2dc2bc6 # Parent 8c9217a6d2ebcc9f5e8433dc3cb249991c215b54 concat bug in jka-compr, lpr.el bug fix diff --git a/ChangeLog b/ChangeLog --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,11 @@ +1998-06-07 Tomasz Cholewo <tjchol01@aivo.spd.louisville.edu> + + * jka-compr.el (jka-compr-partial-uncompress): Fix integer in concat. + +1998-06-13 SL Baur <steve@altair.xemacs.org> + + * lpr.el (print-region-1): Remove references to `buffer-file-type'. + 1998-04-17 SL Baur <steve@altair.xemacs.org> * rlogin.el-1.40. diff --git a/jka-compr.el b/jka-compr.el --- a/jka-compr.el +++ b/jka-compr.el @@ -279,7 +279,9 @@ ;; dd seems to be unreliable about ;; providing the last block. So, always ;; read one more than you think you need. - (if count (concat "count=" (1+ count)) "")))) + (if count + (concat "count=" (number-to-string (1+ count))) + "")))) (unwind-protect (or (memq (call-process jka-compr-shell diff --git a/lpr.el b/lpr.el --- a/lpr.el +++ b/lpr.el @@ -142,10 +142,6 @@ ;; and it seems to annoying to do for that MIPS system. (let ((name (concat (buffer-name) " Emacs buffer")) (title (concat (buffer-name) " Emacs buffer")) - ;; On MS-DOS systems, make pipes use binary mode if the - ;; original file is binary. - (binary-process-input buffer-file-type) - (binary-process-output buffer-file-type) (width tab-width) nswitches switch-string)