Index: emacs/lisp/emacs-lisp/debug.el
diff -c emacs/lisp/emacs-lisp/debug.el:1.90 emacs/lisp/emacs-lisp/debug.el:1.91
*** emacs/lisp/emacs-lisp/debug.el:1.90 Mon Jul 4 17:33:35 2005
--- emacs/lisp/emacs-lisp/debug.el Sat Jul 9 04:14:26 2005
***************
*** 314,321 ****
(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)))
(point))))))
(debugger-make-xrefs))
--- 314,328 ----
(save-excursion
(while (re-search-forward "^ eval-buffer(" nil t)
(end-of-line)
! (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))
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
