From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 9 Jul 2005 04:14:26 +0000 (+0000)
Subject: (debugger-setup-buffer): When eval-buffer
X-Git-Tag: emacs-pretest-22.0.90~8267
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b9549e9dc7fcad0d9b19645ff1e319defd1b0222;p=emacs.git

(debugger-setup-buffer): When eval-buffer
was called with nil for the buffer, handle the read position right.
Handle read position for eval-region, too.
---

diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el
index 94cca83a61d..76d86985079 100644
--- a/lisp/emacs-lisp/debug.el
+++ b/lisp/emacs-lisp/debug.el
@@ -314,8 +314,15 @@ That buffer should be current already."
   (save-excursion
     (while (re-search-forward "^  eval-buffer(" nil t)
       (end-of-line)
-      (insert (format "\n  ;;; Reading at buffer position %d"
-		      (with-current-buffer (nth 2 (backtrace-frame (debugger-frame-number)))
+      (insert (format "  ; Reading at buffer position %d"
+		      (with-current-buffer
+			  (or (nth 2 (backtrace-frame (debugger-frame-number)))
+			      debugger-old-buffer)
+			(point)))))
+    (while (re-search-forward "^  eval-region(" nil t)
+      (end-of-line)
+      (insert (format "  ; Reading at buffer position %d"
+		      (with-current-buffer debugger-old-buffer
 			(point))))))
   (debugger-make-xrefs))