mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(debugger-setup-buffer): When an eval-buffer frame was reading from a buffer,

Browse Source 
insert indication of the buffer position.
(debugger-frame-number): Ignore ;;;-comment lines in backtrace.
This commit is contained in:
Richard M. Stallman 2002-02-01 04:21:38 +00:00
parent 195ce31160
commit 65fe45f2ea
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/emacs-lisp/debug.el
View File

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