# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 869420440 0
# Node ID f7e3c766f54c607755060ff67cb4981393d74adf
# Parent  539611251037863bf7641543afdaf6e026a561ba
(debug-on-quit): Define like debug-on-error.

diff -r 539611251037 -r f7e3c766f54c lisp/cus-start.el
--- a/lisp/cus-start.el	Sun Jul 20 17:39:30 1997 +0000
+++ b/lisp/cus-start.el	Sun Jul 20 17:40:40 1997 +0000
@@ -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