# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1291664154 18000
# Node ID 5510dd208e5560bc6de37f492cc516e5e4c47de4
# Parent  d566763f152d583cf0ebe9807d3c52b961a8d609
Fix arg usage of format-decode-run-method (Bug#7488).

* lisp/format.el (format-decode-run-method): Pass args FROM and TO, not
point-min and point-max, to shell-command-on-region (Bug#7488).

diff -r d566763f152d -r 5510dd208e55 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Dec 06 01:54:52 2010 -0500
+++ b/lisp/ChangeLog	Mon Dec 06 14:35:54 2010 -0500
@@ -1,3 +1,8 @@
+2010-12-06  Lawrence Mitchell  <lawrence.mitchell@ed.ac.uk>
+
+	* format.el (format-decode-run-method): Pass args FROM and TO, not
+	point-min and point-max, to shell-command-on-region (Bug#7488).
+
 2010-12-06  Jan Djärv  <jan.h.d@swipnet.se>
 
 	* frame.el (blink-cursor-mode): Make default t for ns.
diff -r d566763f152d -r 5510dd208e55 lisp/format.el
--- a/lisp/format.el	Mon Dec 06 01:54:52 2010 -0500
+++ b/lisp/format.el	Mon Dec 06 14:35:54 2010 -0500
@@ -180,8 +180,7 @@
 	;; We should perhaps go via a temporary buffer and copy it
 	;; back, in case of errors.
 	(if (and (zerop (save-window-excursion
-			  (shell-command-on-region (point-min) (point-max)
-						   method t t
+			  (shell-command-on-region from to method t t
 						   error-buff)))
 		 ;; gzip gives zero exit status with bad args, for instance.
 		 (zerop (with-current-buffer error-buff