(jka-compr-partial-uncompress): Fix previous change.

2 files changed, 15 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 78d33adce86..01c7104e996 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-11-15  Richard M. Stallman  <rms@gnu.org>
+
+        * jka-compr.el (jka-compr-partial-uncompress): Fix previous change.
+
 2001-11-15  Stefan Monnier  <monnier@cs.yale.edu>
 
         * menu-bar.el (menu-bar-edit-menu) <copy>: Put an explicit key binding.
@@ -7,6 +11,16 @@
         * dired.el (dired-undo): Display a message to explain
         that this does not undo file system changes.
 
+2001-11-15  Alan Shutko  <ats@acm.org>
+
+        * compile.el (recompile): Use compilation-arguments if set, so as
+        to be able to M-x recompile the exact command which created a
+        compilation-mode buffer.
+
+2001-11-13  Richard M. Stallman  <rms@gnu.org>
+
+        * progmodes/ada-mode.el (ada-fill-comment-prefix): Doc fix.
+
 2001-11-15  David Kastrup  <David.Kastrup@t-online.de>
 
         * mouse-drag.el (mouse-drag-throw): Push back non-drag events
diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el
index c4a352bc983..5c42a0af8be 100644
--- a/lisp/jka-compr.el
+++ b/lisp/jka-compr.el
@@ -310,7 +310,7 @@ to keep: LEN chars starting BEG chars from the beginning."
                           ;; 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 (format "count=%d" (1+ count)) "")))
                         jka-compr-acceptable-retval-list)
                   (jka-compr-error prog args infile message err-file))
             (jka-compr-delete-temp-file err-file)))