diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/minibuf.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/minibuf.c b/src/minibuf.c index 3654c01d845..d5f75bd35b7 100644 --- a/src/minibuf.c +++ b/src/minibuf.c | |||
| @@ -358,6 +358,8 @@ void | |||
| 358 | read_minibuf_unwind (data) | 358 | read_minibuf_unwind (data) |
| 359 | Lisp_Object data; | 359 | Lisp_Object data; |
| 360 | { | 360 | { |
| 361 | Lisp_Object old_deactivate_mark; | ||
| 362 | |||
| 361 | /* We are exiting the minibuffer one way or the other, | 363 | /* We are exiting the minibuffer one way or the other, |
| 362 | so run the hook. */ | 364 | so run the hook. */ |
| 363 | if (!NILP (Vminibuffer_exit_hook) && !EQ (Vminibuffer_exit_hook, Qunbound) | 365 | if (!NILP (Vminibuffer_exit_hook) && !EQ (Vminibuffer_exit_hook, Qunbound) |
| @@ -369,7 +371,10 @@ read_minibuf_unwind (data) | |||
| 369 | 371 | ||
| 370 | /* Prevent error in erase-buffer. */ | 372 | /* Prevent error in erase-buffer. */ |
| 371 | current_buffer->read_only = Qnil; | 373 | current_buffer->read_only = Qnil; |
| 374 | |||
| 375 | old_deactivate_mark = Vdeactivate_mark; | ||
| 372 | Ferase_buffer (); | 376 | Ferase_buffer (); |
| 377 | Vdeactivate_mark = old_deactivate_mark; | ||
| 373 | 378 | ||
| 374 | /* If this was a recursive minibuffer, | 379 | /* If this was a recursive minibuffer, |
| 375 | tie the minibuffer window back to the outer level minibuffer buffer */ | 380 | tie the minibuffer window back to the outer level minibuffer buffer */ |