From: Eshel Yaron <me@eshelyaron.com>
Date: Mon, 1 Jul 2024 15:31:56 +0000 (+0200)
Subject: (read-multiple-choice): Respect 'inhibit-interaction'
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ac5e41a146dd1baa1153fa38a2f420f32e1dd976;p=emacs.git

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

diff --git a/lisp/emacs-lisp/rmc.el b/lisp/emacs-lisp/rmc.el
index 568faf3580d..4733a1b5fcd 100644
--- 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)))