From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 20 Jul 1997 17:40:40 +0000 (+0000)
Subject: (debug-on-quit): Define like debug-on-error.
X-Git-Tag: emacs-20.1~1063
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=507c92471fab82af331576861b4573c31346a804;p=emacs.git

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

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