changeset 97790:95a7fbb6dd68

(debug): When killing a noninteractive Emacs, give exit status -1.
author Chong Yidong <cyd@stupidchicken.com>
date Thu, 28 Aug 2008 18:10:01 +0000
parents 165539679bea
children f87928e4f5ba
files lisp/emacs-lisp/debug.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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))