New command 'ignore-string'

diff --git a/lisp/simple.el b/lisp/simple.el
index f5cc2db4511fe9698627263b8649749da2d7f89c..8d8e898823e8865e61315c60c217d54e4d41a9db 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -11248,6 +11248,14 @@ seconds."
           (setq undo-auto-current-boundary-timer
                 (run-at-time 5 nil #'undo-auto--boundary-timer)))))))
 
+(defun ignore-string (string)
+  "Read STRING in the minibuffer, ignore it, and return nil.
+
+Use this command to get a fresh minibuffer without performing any
+particular action on the input you type there."
+  (interactive "sIgnore: ")
+  (ignore string))
+
 (provide 'simple)
 
 ;;; simple.el ends here