Mercurial > emacs
comparison lisp/mail/mh-utils.el @ 40298:b4bc55a74924
(mh-recenter): Call recenter with arg `(4)'.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 25 Oct 2001 10:13:00 +0000 |
| parents | 02fc9234f5ab |
| children | 7308bbc423d5 |
comparison
equal
deleted
inserted
replaced
| 40297:83a67b746289 | 40298:b4bc55a74924 |
|---|---|
| 445 ;; Like recenter but with two improvements: nil arg means recenter, | 445 ;; Like recenter but with two improvements: nil arg means recenter, |
| 446 ;; and only does anything if the current buffer is in the selected | 446 ;; and only does anything if the current buffer is in the selected |
| 447 ;; window. (Commands like save-some-buffers can make this false.) | 447 ;; window. (Commands like save-some-buffers can make this false.) |
| 448 (if (eq (get-buffer-window (current-buffer)) | 448 (if (eq (get-buffer-window (current-buffer)) |
| 449 (selected-window)) | 449 (selected-window)) |
| 450 (recenter (if arg arg t)))) | 450 (recenter (if arg arg '(4))))) |
| 451 | 451 |
| 452 | 452 |
| 453 (defun mh-delete-line (lines) | 453 (defun mh-delete-line (lines) |
| 454 ;; Delete version of kill-line. | 454 ;; Delete version of kill-line. |
| 455 (delete-region (point) (progn (forward-line lines) (point)))) | 455 (delete-region (point) (progn (forward-line lines) (point)))) |