mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 10:31:37 -08:00
Code Issues Projects Releases Wiki Activity

(debugger-setup-buffer): When eval-buffer

Browse source 
was called with nil for the buffer, handle the read position right.
Handle read position for eval-region, too.
This commit is contained in:
Richard M. Stallman 2005-07-09 04:14:26 +00:00
parent 31f3c79b44
commit b9549e9dc7
1 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/emacs-lisp/debug.el
View file

@ -314,8 +314,15 @@ That buffer should be current already."
(save-excursion (save-excursion
(while (re-search-forward "^ eval-buffer(" nil t) (while (re-search-forward "^ eval-buffer(" nil t)
(end-of-line) (end-of-line)
(insert (format "\n ;;; Reading at buffer position %d" (insert (format " ; Reading at buffer position %d"
(with-current-buffer (nth 2 (backtrace-frame (debugger-frame-number))) (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)))))) (point))))))
(debugger-make-xrefs)) (debugger-make-xrefs))