[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: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/debug.el |
Date: |
Thu, 11 Apr 2002 23:19:09 -0400 |
Index: emacs/lisp/emacs-lisp/debug.el
diff -c emacs/lisp/emacs-lisp/debug.el:1.54 emacs/lisp/emacs-lisp/debug.el:1.55
*** emacs/lisp/emacs-lisp/debug.el:1.54 Thu Mar 14 04:02:36 2002
--- emacs/lisp/emacs-lisp/debug.el Thu Apr 11 23:19:09 2002
***************
*** 291,297 ****
(set-buffer (or buffer (current-buffer)))
(setq buffer (current-buffer))
(let ((buffer-read-only nil)
! (old-end 1) (new-end 1))
;; If we saved an old backtrace, find the common part
;; between the new and the old.
;; Compare line by line, starting from the end,
--- 291,297 ----
(set-buffer (or buffer (current-buffer)))
(setq buffer (current-buffer))
(let ((buffer-read-only nil)
! (old-end (point-min)) (new-end (point-min)))
;; If we saved an old backtrace, find the common part
;; between the new and the old.
;; Compare line by line, starting from the end,
***************
*** 317,323 ****
;; Now new-end is the position of the start of the
;; unchanged part in the current buffer, and old-end is
;; the position of that same text in the saved old
! ;; backtrace. But we must subtract 1 since strings are
;; indexed in origin 0.
;; Replace the unchanged part of the backtrace
--- 317,323 ----
;; Now new-end is the position of the start of the
;; unchanged part in the current buffer, and old-end is
;; the position of that same text in the saved old
! ;; backtrace. But we must subtract (point-min) since strings are
;; indexed in origin 0.
;; Replace the unchanged part of the backtrace
***************
*** 327,333 ****
;; the changed part of the backtrace.
(delete-region new-end (point-max))
(goto-char (point-max))
! (insert (substring debugger-previous-backtrace (1- old-end)))
;; Make the unchanged part of the backtrace inaccessible
;; so it won't be scanned.
(narrow-to-region (point-min) new-end)))
--- 327,334 ----
;; the changed part of the backtrace.
(delete-region new-end (point-max))
(goto-char (point-max))
! (insert (substring debugger-previous-backtrace
! (- old-end (point-min))))
;; Make the unchanged part of the backtrace inaccessible
;; so it won't be scanned.
(narrow-to-region (point-min) new-end)))
***************
*** 622,628 ****
(error "Definition of %s is not a list" function))
(fset function (debug-on-entry-1 function (symbol-function function) t))
(or (memq function debug-function-list)
! (setq debug-function-list (cons function debug-function-list)))
function)
;;;###autoload
--- 623,629 ----
(error "Definition of %s is not a list" function))
(fset function (debug-on-entry-1 function (symbol-function function) t))
(or (memq function debug-function-list)
! (push function debug-function-list))
function)
;;;###autoload
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/debug.el,
Stefan Monnier <=