[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.50 emacs/lisp/emacs-lisp/debug.el:1.51
*** emacs/lisp/emacs-lisp/debug.el:1.50 Tue Dec 25 03:14:45 2001
--- emacs/lisp/emacs-lisp/debug.el      Thu Jan 31 23:21:38 2002
***************
*** 272,277 ****
--- 272,284 ----
                    (cdr debugger-args) debugger-args)
                (current-buffer))
         (insert ?\n)))
+   (when (re-search-forward "^  eval-buffer(" nil t)
+     (end-of-line)
+     (insert (format "\n  ;;; Reading at buffer position %d"
+                   (let ((level (+ (debugger-frame-number)
+                                   debugger-frame-offset -4)))
+                     (with-current-buffer (nth 2 (backtrace-frame level))
+                       (point))))))
    (debugger-make-xrefs))
  
  (defun debugger-make-xrefs (&optional buffer)
***************
*** 423,428 ****
--- 430,437 ----
                 (forward-sexp 2))
               (forward-line 1)
               (<= (point) opoint))
+       (if (looking-at " *;;;")
+           (forward-line 1))
        (setq count (1+ count)))
        count)))