changeset 99232:63548ee8ae9f

(delete-minibuffer-contents): Delete all minibuffer contents instead of just the current field.
author Chong Yidong <cyd@stupidchicken.com>
date Wed, 29 Oct 2008 21:30:44 +0000
parents 9fb471c6cd8f
children 49f2f7ce975f
files lisp/minibuffer.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/minibuffer.el	Wed Oct 29 21:30:23 2008 +0000
+++ b/lisp/minibuffer.el	Wed Oct 29 21:30:44 2008 +0000
@@ -300,7 +300,9 @@
 (defun delete-minibuffer-contents ()
   "Delete all user input in a minibuffer.
 If the current buffer is not a minibuffer, erase its entire contents."
-  (delete-field))
+  ;; We used to do `delete-field' here, but when file name shadowing
+  ;; is on, the field doesn't cover the entire minibuffer contents.
+  (delete-region (minibuffer-prompt-end) (point-max)))
 
 (defcustom completion-auto-help t
   "Non-nil means automatically provide help for invalid completion input.