(read-multiple-choice): Respect 'inhibit-interaction'

diff --git a/lisp/emacs-lisp/rmc.el b/lisp/emacs-lisp/rmc.el
index 568faf3580dd38274c4b4646084fba18f3842fcd..4733a1b5fcd7060aa7ba5106a25be29e7e58d37c 100644 (file)
--- a/lisp/emacs-lisp/rmc.el
+++ b/lisp/emacs-lisp/rmc.el
@@ -193,6 +193,7 @@ Usage example:
                       \\='((?a \"always\")
                         (?s \"session only\")
                         (?n \"no\")))"
+  (when inhibit-interaction (signal 'inhibited-interaction nil))
   (while-let ((cell (seq-find (lambda (elem)
                                 (not (characterp (car elem))))
                               choices)))