X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/5694896dfc322e90c0e7e064002cf25296394d75..d39109c3e111bf2403f6e636ff1273f2701683e7:/lisp/minibuffer.el

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index cf990019ab..a9be174942 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -632,6 +632,7 @@ That is what completion commands operate on."
 (defun delete-minibuffer-contents ()
   "Delete all user input in a minibuffer.
 If the current buffer is not a minibuffer, erase its entire contents."
+  (interactive)
   ;; 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)))