# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1120882466 0
# Node ID 1fa9ee9a195adf8d47045934bb85ec62e33c7d6b
# Parent  bb458675c9d09ae68dcd454a5f6eb47c4502ef88
(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 -r bb458675c9d0 -r 1fa9ee9a195a lisp/emacs-lisp/debug.el
--- a/lisp/emacs-lisp/debug.el	Sat Jul 09 04:14:06 2005 +0000
+++ b/lisp/emacs-lisp/debug.el	Sat Jul 09 04:14:26 2005 +0000
@@ -314,8 +314,15 @@
   (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))