Commit 78652ce8 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(fill-region-as-paragraph):

Don't add a newline at the end, when there is none.
parent 2f402702
......@@ -302,11 +302,10 @@ space does not end a sentence, so don't break a line there."
(backward-char 1)
(setq oneleft t)))
(setq to (point))
;; If there was no newline, and there is text in the paragraph, then
;; create a newline.
(if (and (not oneleft) (> to from-plus-indent))
(newline))
;;; ;; If there was no newline, and there is text in the paragraph, then
;;; ;; create a newline.
;;; (if (and (not oneleft) (> to from-plus-indent))
;;; (newline))
(goto-char from-plus-indent))
(if (not (> to (point)))
......@@ -557,7 +556,8 @@ space does not end a sentence, so don't break a line there."
(forward-line 1))))))
;; Leave point after final newline.
(goto-char (point-max)))
(forward-char 1))))
(unless (eobp)
(forward-char 1)))))
(defun fill-paragraph (arg)
"Fill paragraph at or after point. Prefix arg means justify as well.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment