[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/debug.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/debug.el |
Date: |
Thu, 31 Jan 2002 23:21:38 -0500 |
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)))
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/debug.el,
Richard M. Stallman <=