From 507c92471fab82af331576861b4573c31346a804 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 20 Jul 1997 17:40:40 +0000 Subject: [PATCH] (debug-on-quit): Define like debug-on-error. --- lisp/cus-start.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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 -- 2.39.5