2734 |
(funcall orig-func cur-line orig-bp-line) |
(funcall orig-func cur-line orig-bp-line) |
2735 |
(or (not bp-line) (funcall closer-func cur-line bp-line))) |
(or (not bp-line) (funcall closer-func cur-line bp-line))) |
2736 |
(setq bp-line cur-line)))) |
(setq bp-line cur-line)))) |
2737 |
(unless bp-line (error "No further breakpoints.")) |
(unless bp-line (error "No further breakpoints")) |
2738 |
(goto-line bp-line))) |
(goto-line bp-line))) |
2739 |
|
|
2740 |
;; Examine Commands ------------------------------------------------------ |
;; Examine Commands ------------------------------------------------------ |