(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 94cca83a61d0754e542ef025833f987e19d087c1..76d86985079e6436469e481afac7091acf4be6c7 100644 (file)
--- 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))