changeset 18883:f7e3c766f54c

(debug-on-quit): Define like debug-on-error.
author Richard M. Stallman <rms@gnu.org>
date Sun, 20 Jul 1997 17:40:40 +0000
parents 539611251037
children 04d36f3e7fa6
files lisp/cus-start.el
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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