(debug-on-quit): Define like debug-on-error.

1 files changed, 6 insertions, 1 deletions

diff --git a/lisp/cus-start.el b/lisp/cus-start.el
index e3950dd82ec..efa46c37bda 100644
--- a/lisp/cus-start.el
+++ b/lisp/cus-start.el
@@ -93,7 +93,12 @@
                                              (symbol :format "%v"))
                                      (const :tag "always" t)))
              (debug-ignored-errors debug (repeat (choice symbol regexp)))
-             (debug-on-quit debug choice)
+             (debug-on-quit debug
+                            (choice (const :tag "off")
+                                    (repeat :menu-tag "When"
+                                            :value (nil)
+                                            (symbol :format "%v"))
+                                    (const :tag "always" t)))
              ;; fileio.c
              (insert-default-directory minibuffer boolean)
              ;; frame.c