/[emacs]/emacs/lisp/emacs-lisp/debug.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/debug.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.51 by rms, Fri Feb 1 04:21:38 2002 UTC revision 1.52 by rms, Fri Feb 1 04:24:22 2002 UTC
# Line 439  will be used, such as in a debug on exit Line 439  will be used, such as in a debug on exit
439    "Request entry to debugger when this frame exits.    "Request entry to debugger when this frame exits.
440  Applies to the frame whose line point is on in the backtrace."  Applies to the frame whose line point is on in the backtrace."
441    (interactive)    (interactive)
442      (save-excursion
443        (beginning-of-line)
444        (if (looking-at " *;;;\\|[a-z]")
445            (error "This line is not a function call")))
446    (beginning-of-line)    (beginning-of-line)
447    (let ((level (debugger-frame-number)))    (let ((level (debugger-frame-number)))
448      (backtrace-debug (+ level debugger-frame-offset) t))      (backtrace-debug (+ level debugger-frame-offset) t))
# Line 452  Applies to the frame whose line point is Line 456  Applies to the frame whose line point is
456    "Do not enter debugger when this frame exits.    "Do not enter debugger when this frame exits.
457  Applies to the frame whose line point is on in the backtrace."  Applies to the frame whose line point is on in the backtrace."
458    (interactive)    (interactive)
459      (save-excursion
460        (beginning-of-line)
461        (if (looking-at " *;;;\\|[a-z]")
462            (error "This line is not a function call")))
463    (beginning-of-line)    (beginning-of-line)
464    (let ((level (debugger-frame-number)))    (let ((level (debugger-frame-number)))
465      (backtrace-debug (+ level debugger-frame-offset) nil))      (backtrace-debug (+ level debugger-frame-offset) nil))

Legend:
Removed from v.1.51  
changed lines
  Added in v.1.52

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26