Mercurial > emacs

changeset 43033:9af85e74c287

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Richard M. Stallman <rms@gnu.org>
date Fri, 01 Feb 2002 04:21:38 +0000
parents 27a9a1ef61f9
children c803f1ca9d2b
files lisp/emacs-lisp/debug.el
diffstat 1 files changed, 9 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/debug.el	Fri Feb 01 04:20:02 2002 +0000
+++ b/lisp/emacs-lisp/debug.el	Fri Feb 01 04:21:38 2002 +0000
@@ -272,6 +272,13 @@
 		    (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 @@
 		 (forward-sexp 2))
 	       (forward-line 1)
 	       (<= (point) opoint))
+	(if (looking-at " *;;;")
+	    (forward-line 1))
 	(setq count (1+ count)))
       count)))