# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1219947001 0
# Node ID 95a7fbb6dd68899c1d6532369246f7ff6191cdd6
# Parent  165539679beac93ba5e0a27a8db09ea8d815fe80
(debug): When killing a noninteractive Emacs, give exit status -1.

diff -r 165539679bea -r 95a7fbb6dd68 lisp/emacs-lisp/debug.el
--- a/lisp/emacs-lisp/debug.el	Thu Aug 28 18:09:45 2008 +0000
+++ b/lisp/emacs-lisp/debug.el	Thu Aug 28 18:10:01 2008 +0000
@@ -200,7 +200,7 @@
 		    (insert "...\n"))
 		  (goto-char (point-min))
 		  (message "%s" (buffer-string))
-		  (kill-emacs))
+		  (kill-emacs -1))
 		(message "")
 		(let ((standard-output nil)
 		      (buffer-read-only t))