Mercurial > emacs

comparison lisp/textmodes/refill.el @ 49599:5ade352e8d1c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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)