From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 13 Apr 2025 02:58:22 +0000 (-0400)
Subject: (replace-buffer-contents): Mark as obsolete, again.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=92bfe13c7cdf57b71d7ac1c0328e3ec5b1ffb7f0;p=emacs.git

(replace-buffer-contents): Mark as obsolete, again.

* lisp/subr.el (replace-buffer-contents): Mark as obsolete, again.
* src/editfns.c (Freplace_region_contents): Add interactive form.

(cherry picked from commit b99893af1ec373bf96c3326fa6f77740de55e621)
---

diff --git a/lisp/subr.el b/lisp/subr.el
index f7ad454d81f..1ddb19cc084 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -4366,6 +4366,7 @@ Interactively, prompt for SOURCE.
 The replacement is performed using `replace-region-contents'
 which also describes the MAX-SECS and MAX-COSTS arguments and the
 return value."
+  (declare (obsolete replace-region-contents "31.1"))
   (interactive "bSource buffer: ")
   (replace-region-contents (point-min) (point-max) (get-buffer source)
                            max-secs max-costs))
diff --git a/src/editfns.c b/src/editfns.c
index 669d3cdb140..969b1205db2 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -1916,7 +1916,10 @@ static bool compareseq_early_abort (struct context *);
 #include "diffseq.h"
 
 DEFUN ("replace-region-contents", Freplace_region_contents,
-       Sreplace_region_contents, 3, 6, 0,
+       Sreplace_region_contents, 3, 6,
+       "(list (if (use-region-p) (region-beginning) (point-min)) \
+              (if (use-region-p) (region-end) (point-max)) 	 \
+              (get-buffer (read-buffer-to-switch \"Source buffer: \")))",
        doc: /* Replace the region between BEG and END with that of SOURCE.
 SOURCE can be a buffer, a string, or a vector [SBUF SBEG SEND]
 denoting the subtring SBEG..SEND of buffer SBUF.