Mercurial > emacs
comparison lisp/textmodes/refill.el @ 49599:5ade352e8d1c
Trailing whitespace deleted.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Tue, 04 Feb 2003 13:30:45 +0000 |
parents | 3f0b3e6d23fb |
children | fff8e0eb547c d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
49598:0d8b17d428b5 | 49599:5ade352e8d1c |
---|---|
100 (goto-char beg) | 100 (goto-char beg) |
101 (forward-line -1) | 101 (forward-line -1) |
102 (if (<= (point) (overlay-start overlay)) | 102 (if (<= (point) (overlay-start overlay)) |
103 ;; Just get OVERLAY out of the way | 103 ;; Just get OVERLAY out of the way |
104 (move-overlay overlay 1 1) | 104 (move-overlay overlay 1 1) |
105 ;; Make overlay contain only the region | 105 ;; Make overlay contain only the region |
106 (move-overlay overlay (overlay-start overlay) (point)))))) | 106 (move-overlay overlay (overlay-start overlay) (point)))))) |
107 | 107 |
108 (defun refill-fill-paragraph-at (pos &optional arg) | 108 (defun refill-fill-paragraph-at (pos &optional arg) |
109 "Like `fill-paragraph' at POS, but don't delete whitespace at paragraph end." | 109 "Like `fill-paragraph' at POS, but don't delete whitespace at paragraph end." |
110 (let (fill-pfx) | 110 (let (fill-pfx) |