diff options
| author | Richard M. Stallman <rms@gnu.org> | 2002-02-01 04:21:38 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2002-02-01 04:21:38 +0000 |
| commit | 65fe45f2eae5b1b9de299846a542aba76cbcd428 (patch) | |
| tree | 0a99e3f0519c7e5a4fa4e89c493dc9736085fbe0 /lisp/emacs-lisp | |
| parent | 195ce311607af59b164fc1b6b2e87ecad43e5241 (diff) | |
| download | emacs-65fe45f2eae5b1b9de299846a542aba76cbcd428.tar.gz emacs-65fe45f2eae5b1b9de299846a542aba76cbcd428.tar.bz2 emacs-65fe45f2eae5b1b9de299846a542aba76cbcd428.zip | |
(debugger-setup-buffer): When an eval-buffer frame was reading from a buffer,
insert indication of the buffer position.
(debugger-frame-number): Ignore ;;;-comment lines in backtrace.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/debug.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el index 028344612e7..aecfb93a3c5 100644 --- a/lisp/emacs-lisp/debug.el +++ b/lisp/emacs-lisp/debug.el @@ -272,6 +272,13 @@ That buffer should be current already." (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,6 +430,8 @@ will be used, such as in a debug on exit from a frame." (forward-sexp 2)) (forward-line 1) (<= (point) opoint)) + (if (looking-at " *;;;") + (forward-line 1)) (setq count (1+ count))) count))) |