From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 10 Sep 1999 06:32:34 +0000 (+0000)
Subject: (Ferase_buffer): Don't erase the minibuffer prompt.
X-Git-Tag: emacs-pretest-21.0.90~6816
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c280bc6a3d374a88ec1365b8f3c9578e3a1794fa;p=emacs.git

(Ferase_buffer): Don't erase the minibuffer prompt.
---

diff --git a/src/buffer.c b/src/buffer.c
index d4c60f966cd..69bf17283ee 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -1705,7 +1705,12 @@ so the buffer is truly empty after this.")
   ()
 {
   Fwiden ();
-  del_range (BEG, Z);
+  
+  if (INTEGERP (current_buffer->minibuffer_prompt_length))
+    del_range (XINT (current_buffer->minibuffer_prompt_length), Z);
+  else
+    del_range (BEG, Z);
+
   current_buffer->last_window_start = 1;
   /* Prevent warnings, or suspension of auto saving, that would happen
      if future size is less than past size.  Use of erase-buffer