diff --git a/src/emacs-module.c b/src/emacs-module.c
index 0abfd3f6f16..282012770eb 100644
--- a/src/emacs-module.c
+++ b/src/emacs-module.c
@@ -665,13 +665,13 @@ module_vec_size (emacs_env *env, emacs_value vec)
   return ASIZE (lvec);
 }
 
-/* This function should return true if and only if maybe_quit would do
-   anything.  */
+/* This function should return true if and only if maybe_quit would
+   quit.  */
 static bool
 module_should_quit (emacs_env *env)
 {
   MODULE_FUNCTION_BEGIN_NO_CATCH (false);
-  return (! NILP (Vquit_flag) && NILP (Vinhibit_quit)) || pending_signals;
+  return QUITP;
 }
 
 
diff --git a/src/eval.c b/src/eval.c
index 0dc8639a8d4..2409d3d2c4b 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -1484,10 +1484,7 @@ process_quit_flag (void)
    If quit-flag is set to `kill-emacs' the SIGINT handler has received
    a request to exit Emacs when it is safe to do.
 
-   When not quitting, process any pending signals.
-
-   If you change this function, also adapt module_should_quit in
-   emacs-module.c.  */
+   When not quitting, process any pending signals.  */
 
 void
 maybe_quit (void)