Mercurial > emacs
comparison lisp/progmodes/idlw-shell.el @ 104774:468b7fa34d2c
Use forward-line rather than goto-line.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 01 Sep 2009 03:18:44 +0000 |
| parents | da8b3e61b182 |
| children | f8ba8d6fd250 |
comparison
equal
deleted
inserted
replaced
| 104773:380c4c2a4fc2 | 104774:468b7fa34d2c |
|---|---|
| 2788 (if (and | 2788 (if (and |
| 2789 (funcall orig-func cur-line orig-bp-line) | 2789 (funcall orig-func cur-line orig-bp-line) |
| 2790 (or (not bp-line) (funcall closer-func cur-line bp-line))) | 2790 (or (not bp-line) (funcall closer-func cur-line bp-line))) |
| 2791 (setq bp-line cur-line)))) | 2791 (setq bp-line cur-line)))) |
| 2792 (unless bp-line (error "No further breakpoints")) | 2792 (unless bp-line (error "No further breakpoints")) |
| 2793 (goto-line bp-line))) | 2793 (goto-char (point-min)) |
| 2794 (forward-line (1- bp-line)))) | |
| 2794 | 2795 |
| 2795 ;; Examine Commands ------------------------------------------------------ | 2796 ;; Examine Commands ------------------------------------------------------ |
| 2796 | 2797 |
| 2797 (defun idlwave-shell-help-expression (arg) | 2798 (defun idlwave-shell-help-expression (arg) |
| 2798 "Print help on current expression. See `idlwave-shell-print'." | 2799 "Print help on current expression. See `idlwave-shell-print'." |