From 83709c9f9134ddaa59434d136ab80e20b040e8f9 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 15 Nov 2001 21:17:19 +0000 Subject: [PATCH] (jka-compr-partial-uncompress): Fix previous change. --- lisp/ChangeLog | 14 ++++++++++++++ lisp/jka-compr.el | 2 +- 2 files changed, 15 insertions(+), 1 deletion(-) 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 + + * jka-compr.el (jka-compr-partial-uncompress): Fix previous change. + 2001-11-15 Stefan Monnier * menu-bar.el (menu-bar-edit-menu) : 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 + + * 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 + + * progmodes/ada-mode.el (ada-fill-comment-prefix): Doc fix. + 2001-11-15 David Kastrup * 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))) -- 2.39.5