Mercurial > emacs
comparison lisp/emacs-lisp/debug.el @ 64189:1fa9ee9a195a
(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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 09 Jul 2005 04:14:26 +0000 |
| parents | 18a818a2ee7c |
| children | 4900890ed6a6 |
comparison
equal
deleted
inserted
replaced
| 64188:bb458675c9d0 | 64189:1fa9ee9a195a |
|---|---|
| 312 ;; After any frame that uses eval-buffer, | 312 ;; After any frame that uses eval-buffer, |
| 313 ;; insert a line that states the buffer position it's reading at. | 313 ;; insert a line that states the buffer position it's reading at. |
| 314 (save-excursion | 314 (save-excursion |
| 315 (while (re-search-forward "^ eval-buffer(" nil t) | 315 (while (re-search-forward "^ eval-buffer(" nil t) |
| 316 (end-of-line) | 316 (end-of-line) |
| 317 (insert (format "\n ;;; Reading at buffer position %d" | 317 (insert (format " ; Reading at buffer position %d" |
| 318 (with-current-buffer (nth 2 (backtrace-frame (debugger-frame-number))) | 318 (with-current-buffer |
| 319 (or (nth 2 (backtrace-frame (debugger-frame-number))) | |
| 320 debugger-old-buffer) | |
| 321 (point))))) | |
| 322 (while (re-search-forward "^ eval-region(" nil t) | |
| 323 (end-of-line) | |
| 324 (insert (format " ; Reading at buffer position %d" | |
| 325 (with-current-buffer debugger-old-buffer | |
| 319 (point)))))) | 326 (point)))))) |
| 320 (debugger-make-xrefs)) | 327 (debugger-make-xrefs)) |
| 321 | 328 |
| 322 (defun debugger-make-xrefs (&optional buffer) | 329 (defun debugger-make-xrefs (&optional buffer) |
| 323 "Attach cross-references to function names in the `*Backtrace*' buffer." | 330 "Attach cross-references to function names in the `*Backtrace*' buffer." |