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

507c9247 · Richard M. Stallman · a7d6bdac · 507c9247
Commit 507c9247 authored Jul 20, 1997 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 1 deletion

lisp/cus-start.el lisp/cus-start.el +6 -1

No files found.
--- 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