diff options
| author | Richard M. Stallman <[email protected]> | 2005-07-09 04:14:26 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 2005-07-09 04:14:26 +0000 |
| commit | b9549e9dc7fcad0d9b19645ff1e319defd1b0222 (patch) | |
| tree | 6a79e71e422e9d661fe3fdcfcff6135dea8d2db2 | |
| parent | 31f3c79b44bfd1565b93f2951bfdce445413b1ec (diff) | |
(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.
| -rw-r--r-- | lisp/emacs-lisp/debug.el | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el index 94cca83a61..76d8698507 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)) |