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)))) |