diff options
| author | Chong Yidong | 2008-08-28 18:10:01 +0000 |
|---|---|---|
| committer | Chong Yidong | 2008-08-28 18:10:01 +0000 |
| commit | f3bb3e68956bccd031885f7452ee11aafebc0069 (patch) | |
| tree | 231102f671191728a1f31553ea8c1e013a06867a | |
| parent | f50f0aa2ea188517fe25dbb60b940beba579ff98 (diff) | |
| download | emacs-f3bb3e68956bccd031885f7452ee11aafebc0069.tar.gz emacs-f3bb3e68956bccd031885f7452ee11aafebc0069.zip | |
(debug): When killing a noninteractive Emacs, give exit status -1.
| -rw-r--r-- | lisp/emacs-lisp/debug.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el index 4a4d744b37f..704e4775b8c 100644 --- a/lisp/emacs-lisp/debug.el +++ b/lisp/emacs-lisp/debug.el | |||
| @@ -200,7 +200,7 @@ first will be printed into the backtrace buffer." | |||
| 200 | (insert "...\n")) | 200 | (insert "...\n")) |
| 201 | (goto-char (point-min)) | 201 | (goto-char (point-min)) |
| 202 | (message "%s" (buffer-string)) | 202 | (message "%s" (buffer-string)) |
| 203 | (kill-emacs)) | 203 | (kill-emacs -1)) |
| 204 | (message "") | 204 | (message "") |
| 205 | (let ((standard-output nil) | 205 | (let ((standard-output nil) |
| 206 | (buffer-read-only t)) | 206 | (buffer-read-only t)) |