(read--expression-try-read): Mark as minibuffer-specific

diff --git a/lisp/simple.el b/lisp/simple.el
index 54a64e67c4d4992fbacec9d2cc0a145c6dcb1674..d7c545263c91e8d5c891b55346ddd73ddb0dc3ba 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2061,7 +2061,7 @@ Exit the minibuffer if successful, else report the error to the
 user and move point to the location of the error.  If point is
 not already at the location of the error, push a mark before
 moving point."
-  (interactive)
+  (interactive "" minibuffer-mode)
   (unless (> (minibuffer-depth) 0)
     (error "Minibuffer must be active"))
   (if (let* ((contents (minibuffer-contents))