# 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)