Mercurial > emacs
comparison lisp/bs.el @ 74881:0375a18f6b40
(bs--up): Remove interactive spec.
| author | Michaël Cadilhac <michael.cadilhac@lrde.org> |
|---|---|
| date | Sun, 24 Dec 2006 17:27:20 +0000 |
| parents | 75ac3e7c76de |
| children | e3694f1cb928 bc10a33dd40b |
comparison
equal
deleted
inserted
replaced
| 74880:d214f78f14f8 | 74881:0375a18f6b40 |
|---|---|
| 997 (bs--nth-wrapper arg 'bs--up))) | 997 (bs--nth-wrapper arg 'bs--up))) |
| 998 | 998 |
| 999 (defun bs--up () | 999 (defun bs--up () |
| 1000 "Move cursor vertically up one line. | 1000 "Move cursor vertically up one line. |
| 1001 If on top of buffer list go to last line." | 1001 If on top of buffer list go to last line." |
| 1002 (interactive "p") | |
| 1003 (if (> (count-lines 1 (point)) bs-header-lines-length) | 1002 (if (> (count-lines 1 (point)) bs-header-lines-length) |
| 1004 (forward-line -1) | 1003 (forward-line -1) |
| 1005 (goto-char (point-max)) | 1004 (goto-char (point-max)) |
| 1006 (beginning-of-line) | 1005 (beginning-of-line) |
| 1007 (recenter -1))) | 1006 (recenter -1))) |