Mercurial > emacs
comparison lisp/proced.el @ 95300:cf89ac5d2869
(proced-next-line, proced-previous-line): Avoid calling `next-line'
and `previous-line' from Lisp code.
| author | John Paul Wallington <jpw@pobox.com> |
|---|---|
| date | Sun, 25 May 2008 22:13:53 +0000 |
| parents | 3680efd5ada2 |
| children | 9ebcc98e40f8 |
comparison
equal
deleted
inserted
replaced
| 95299:a1e891587964 | 95300:cf89ac5d2869 |
|---|---|
| 351 | 351 |
| 352 (defun proced-next-line (arg) | 352 (defun proced-next-line (arg) |
| 353 "Move down lines then position at `proced-goal-column'. | 353 "Move down lines then position at `proced-goal-column'. |
| 354 Optional prefix ARG says how many lines to move; default is one line." | 354 Optional prefix ARG says how many lines to move; default is one line." |
| 355 (interactive "p") | 355 (interactive "p") |
| 356 (next-line arg) | 356 (forward-line arg) |
| 357 (proced-move-to-goal-column)) | 357 (proced-move-to-goal-column)) |
| 358 | 358 |
| 359 (defun proced-previous-line (arg) | 359 (defun proced-previous-line (arg) |
| 360 "Move up lines then position at `proced-goal-column'. | 360 "Move up lines then position at `proced-goal-column'. |
| 361 Optional prefix ARG says how many lines to move; default is one line." | 361 Optional prefix ARG says how many lines to move; default is one line." |
| 362 (interactive "p") | 362 (interactive "p") |
| 363 (previous-line arg) | 363 (forward-line (- arg)) |
| 364 (proced-move-to-goal-column)) | 364 (proced-move-to-goal-column)) |
| 365 | 365 |
| 366 (defun proced-mark (&optional count) | 366 (defun proced-mark (&optional count) |
| 367 "Mark the current (or next COUNT) processes." | 367 "Mark the current (or next COUNT) processes." |
| 368 (interactive "p") | 368 (interactive "p") |