[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/debug.el

[Richard M . Stallman]

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))