From 3d24c799916fc84ccbae465ad8a8c556cf4a2ea7 Mon Sep 17 00:00:00 2001 From: ueno Date: Thu, 18 Nov 2004 03:29:20 +0000 Subject: [PATCH] (riece-submit-bug-report): Signal an error when riece-debug is nil. --- lisp/riece.el | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) diff --git a/lisp/riece.el b/lisp/riece.el index 8457cf5..524f2d8 100644 --- a/lisp/riece.el +++ b/lisp/riece.el @@ -545,14 +545,15 @@ Instead, these commands are available: (recent-keys))) (require 'reporter) (let ((reporter-prompt-for-summary-p t)) - (when (y-or-n-p "Do you want to submit a report on Riece? ") - (reporter-submit-bug-report - "liece@unixuser.org" - (riece-version) - '(riece-debug) - nil - nil - "This bug report will be sent to the Riece Development Team, + (unless riece-debug + (error "Please turn on riece-debug and restart Riece.")) + (reporter-submit-bug-report + "liece@unixuser.org" + (riece-version) + '(riece-debug) + nil + nil + "This bug report will be sent to the Riece Development Team, not to your local site managers!! Please write in Japanese or English, because the Riece maintainers do @@ -610,7 +611,7 @@ are familiar with the debugger, to get a lisp back-trace.") ;; Insert recent minibuffer messages. (insert "\nRecent messages (most recent first):\n" "-----------------------------------\n" - recent-messages))))) + recent-messages)))) (provide 'riece) -- 1.7.10.4