# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 936945154 0
# Node ID acfb741e6e24db6bb6e62d8ce1c8af955eb35370
# Parent  c0e27d3ce64574a7c044133f1d60c39cbc95e147
(Ferase_buffer): Don't erase the minibuffer prompt.

diff -r c0e27d3ce645 -r acfb741e6e24 src/buffer.c
--- a/src/buffer.c	Fri Sep 10 02:42:59 1999 +0000
+++ b/src/buffer.c	Fri Sep 10 06:32:34 1999 +0000
@@ -1705,7 +1705,12 @@
   ()
 {
   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