aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2003-06-16 18:54:23 +0000
committerStefan Monnier2003-06-16 18:54:23 +0000
commit2f74c84b7de292c8aea0f7c7ebe2c8043ee7f2ae (patch)
tree0f0c65a353df767c25de7cc7510ca4fcbd64cb72
parentd7672cf846e1129f85545f63a515a83e56f02b7d (diff)
downloademacs-2f74c84b7de292c8aea0f7c7ebe2c8043ee7f2ae.tar.gz
emacs-2f74c84b7de292c8aea0f7c7ebe2c8043ee7f2ae.zip
(debug): Fix call to message.
-rw-r--r--lisp/emacs-lisp/debug.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el
index 43e4d781a77..f62b0c4836e 100644
--- a/lisp/emacs-lisp/debug.el
+++ b/lisp/emacs-lisp/debug.el
@@ -1,6 +1,6 @@
1;;; debug.el --- debuggers and related commands for Emacs 1;;; debug.el --- debuggers and related commands for Emacs
2 2
3;; Copyright (C) 1985, 1986, 1994, 2001 Free Software Foundation, Inc. 3;; Copyright (C) 1985, 1986, 1994, 2001, 2003 Free Software Foundation, Inc.
4 4
5;; Maintainer: FSF 5;; Maintainer: FSF
6;; Keywords: lisp, tools, maint 6;; Keywords: lisp, tools, maint
@@ -178,7 +178,7 @@ first will be printed into the backtrace buffer."
178 (delete-region middlestart (point))) 178 (delete-region middlestart (point)))
179 (insert "...\n")) 179 (insert "...\n"))
180 (goto-char (point-min)) 180 (goto-char (point-min))
181 (message (buffer-string)) 181 (message "%s" (buffer-string))
182 (kill-emacs)) 182 (kill-emacs))
183 (if (eq (car debugger-args) 'debug) 183 (if (eq (car debugger-args) 'debug)
184 ;; Skip the frames for backtrace-debug, byte-code, and debug. 184 ;; Skip the frames for backtrace-debug, byte-code, and debug.