Fix error in 'call-process-region' when START is nil (Bug#40576)

* src/callproc.c (Fcall_process_region): Fix behavior when START is
nil and DELETE is non-nil.

* test/src/callproc-tests.el
(call-process-region-entire-buffer-with-delete): New unit test.

diff --git a/src/callproc.c b/src/callproc.c
index 8883415f3f5cf8698ae2adbafadb0ad5451abf6e..65c858393a910e480982f165ab68096a7d60f461 100644 (file)
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -1099,7 +1099,17 @@ usage: (call-process-region START END PROGRAM &optional DELETE BUFFER DISPLAY &r
     }
 
   if (nargs > 3 && !NILP (args[3]))
-    Fdelete_region (start, end);
+    {
+      if (NILP (start))
+        {
+          /* No need to save restrictions since we delete everything
+             anyway.  */
+          Fwiden ();
+          del_range (BEG, Z);
+        }
+      else
+        Fdelete_region (start, end);
+    }
 
   if (nargs > 3)
     {

diff --git a/test/src/callproc-tests.el b/test/src/callproc-tests.el
index bf7d47b27f15684bc7878a583ccc09b81060d073..1617d5e33d3a299e849e29dd6c9a4a0992381aea 100644 (file)
--- a/test/src/callproc-tests.el
+++ b/test/src/callproc-tests.el
@@ -66,4 +66,14 @@
                   (error :got-error))))
     (should have-called-debugger)))
 
+(ert-deftest call-process-region-entire-buffer-with-delete ()
+  "Check that Bug#40576 is fixed."
+  (let ((emacs (expand-file-name invocation-name invocation-directory)))
+    (skip-unless (file-executable-p emacs))
+    (with-temp-buffer
+      (insert "Buffer contents\n")
+      (should
+       (eq (call-process-region nil nil emacs :delete nil nil "--version") 0))
+      (should (eq (buffer-size) 0)))))
+
 ;;; callproc-tests.el ends here