diff options
| author | Richard M. Stallman | 1999-09-10 06:32:34 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1999-09-10 06:32:34 +0000 |
| commit | c280bc6a3d374a88ec1365b8f3c9578e3a1794fa (patch) | |
| tree | 2408612cc56cb19a5400a2fc233c44c95aa53dee /src/buffer.c | |
| parent | 24b72a45b79fdeec02e68ceb19efc21c741317f6 (diff) | |
| download | emacs-c280bc6a3d374a88ec1365b8f3c9578e3a1794fa.tar.gz emacs-c280bc6a3d374a88ec1365b8f3c9578e3a1794fa.zip | |
(Ferase_buffer): Don't erase the minibuffer prompt.
Diffstat (limited to 'src/buffer.c')
| -rw-r--r-- | src/buffer.c | 7 |
1 files changed, 6 insertions, 1 deletions
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.") | |||
| 1705 | () | 1705 | () |
| 1706 | { | 1706 | { |
| 1707 | Fwiden (); | 1707 | Fwiden (); |
| 1708 | del_range (BEG, Z); | 1708 | |
| 1709 | if (INTEGERP (current_buffer->minibuffer_prompt_length)) | ||
| 1710 | del_range (XINT (current_buffer->minibuffer_prompt_length), Z); | ||
| 1711 | else | ||
| 1712 | del_range (BEG, Z); | ||
| 1713 | |||
| 1709 | current_buffer->last_window_start = 1; | 1714 | current_buffer->last_window_start = 1; |
| 1710 | /* Prevent warnings, or suspension of auto saving, that would happen | 1715 | /* Prevent warnings, or suspension of auto saving, that would happen |
| 1711 | if future size is less than past size. Use of erase-buffer | 1716 | if future size is less than past size. Use of erase-buffer |