Commit 24d78a88 authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen
Browse files

(fill-region): Leave point and mark where they were before filling

Fixes: debbugs:5399
parent 9ea49b28
2012-04-10 Lars Magne Ingebrigtsen <larsi@gnus.org>
* textmodes/fill.el (fill-region): Leave point and mark where they
were before filling (bug#5399).
2012-04-09 Glenn Morris <rgm@gnu.org>
* version.el (emacs-bzr-get-version):
......
......@@ -1011,7 +1011,8 @@ space does not end a sentence, so don't break a line there."
(if current-prefix-arg 'full))))
(unless (memq justify '(t nil none full center left right))
(setq justify 'full))
(let (max beg fill-pfx)
(let ((start-point (point-marker))
max beg fill-pfx)
(goto-char (max from to))
(when to-eop
(skip-chars-backward "\n")
......@@ -1042,6 +1043,8 @@ space does not end a sentence, so don't break a line there."
(setq fill-pfx
(fill-region-as-paragraph (point) end justify nosqueeze))
(goto-char end))))
(goto-char start-point)
(set-marker start-point nil)
fill-pfx))
......
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