Mercurial > emacs
changeset 10497:6e00457b6f86
(fill-region-as-paragraph): At end, advance over any newlines
that were in the region but excluded from filling.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 20 Jan 1995 23:06:06 +0000 |
| parents | 7ffec1b5c86c |
| children | 8fb25f247533 |
| files | lisp/textmodes/fill.el |
| diffstat | 1 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/fill.el Fri Jan 20 22:02:53 1995 +0000 +++ b/lisp/textmodes/fill.el Fri Jan 20 23:06:06 1995 +0000 @@ -134,7 +134,8 @@ (or justify (setq justify (current-justification))) ;; Don't let Adaptive Fill mode alter the fill prefix permanently. - (let ((fill-prefix fill-prefix)) + (let ((fill-prefix fill-prefix) + (skip-after 0)) ;; Figure out how this paragraph is indented, if desired. (if (and adaptive-fill-mode (or (null fill-prefix) (string= fill-prefix ""))) @@ -172,6 +173,9 @@ (setq beg (point)) (goto-char (max from to)) (skip-chars-backward "\n") + (setq skip-after (- to (point))) + ;; If we omit some final newlines from the end of the narrowing, + ;; arrange to advance past them at the end. (setq to (point) from beg) (goto-char from) @@ -307,7 +311,8 @@ (justify-current-line justify t t) (forward-line -1) (justify-current-line justify nil t) - (forward-line 1))))))))) + (forward-line 1)))))) + (forward-char skip-after)))) (defun fill-paragraph (arg) "Fill paragraph at or after point. Prefix arg means justify as well.