(debugger-record-expression): Add a missing format to `message'.

Inspired by Deepak Goel <deego@gnufans.org>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a64bd2a07432303096d2ac9c952014172b0f83a1..9ef3a5d7fc104b2499a13597d8a4f964a2f74553 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-03-26  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * emacs-lisp/debug.el (debugger-record-expression): Add a missing
+       format to `message'.  Inspired by Deepak Goel <deego@gnufans.org>.
+
 2005-03-25  Richard M. Stallman  <rms@gnu.org>
 
        * filesets.el (filesets-init): Add autoload.
@@ -5,7 +10,7 @@
        * mail/mailalias.el (mail-directory): Doc fix.
 
 2005-03-25  Frederik Fouvry  <fouvry@CoLi.Uni-SB.DE>
-       
+
        * mail/mailalias.el (mail-directory-process): Do nothing if
        mail-directory-process is an atom.
        (mail-get-names): Ignore mail-directory-names if it is an atom.
@@ -18,8 +23,8 @@
 
 2005-03-26  Kenichi Handa  <handa@m17n.org>
 
-       * international/mule-util.el (detect-coding-with-priority): Call
-       update-coding-systems-internal before detect-coding-region.
+       * international/mule-util.el (detect-coding-with-priority):
+       Call update-coding-systems-internal before detect-coding-region.
 
 2005-03-26  Nick Roberts  <nickrob@snap.net.nz>
 

diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el
index e97e9012fc12f3c3413aca4f41f45614ec9c5e24..1e45439658c07f5749a1316b63f982fecd82f72a 100644 (file)
--- a/lisp/emacs-lisp/debug.el
+++ b/lisp/emacs-lisp/debug.el
@@ -584,10 +584,9 @@ Applies to the frame whose line point is on in the backtrace."
     (terpri))
 
   (with-current-buffer (get-buffer debugger-record-buffer)
-    (save-excursion
-      (forward-line -1)
-      (message
-       (buffer-substring (point) (progn (end-of-line) (point)))))))
+    (message "%s" 
+            (buffer-substring (line-beginning-position 0)
+                              (line-end-position 0)))))
 
 (put 'debugger-mode 'mode-class 'special)