diff options
| author | Ikumi Keita <ikumi@ikumi.que.jp> | 2021-11-29 15:40:19 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-11-29 15:40:19 +0100 |
| commit | 247ed6ccbcf0d2b0887181a90632d4e461a2f519 (patch) | |
| tree | 41927dd9bbc1686470456a88444b8571be6ca962 /lisp/textmodes/fill.el | |
| parent | 49422d2e6986d3ec161e194c73c38f2a7c4b3c64 (diff) | |
| download | emacs-247ed6ccbcf0d2b0887181a90632d4e461a2f519.tar.gz emacs-247ed6ccbcf0d2b0887181a90632d4e461a2f519.tar.bz2 emacs-247ed6ccbcf0d2b0887181a90632d4e461a2f519.zip | |
Make fill-region-as-paragraph clear the markers it creates
* lisp/textmodes/fill.el (fill-region-as-paragraph): Clear
temporary markers (bug#52175).
Copyright-paperwork-exempt: yes
Diffstat (limited to 'lisp/textmodes/fill.el')
| -rw-r--r-- | lisp/textmodes/fill.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index 73d76a8ac67..4e161099cd6 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el @@ -705,7 +705,10 @@ space does not end a sentence, so don't break a line there." (goto-char from-plus-indent)) (if (not (> to (point))) - nil ;; There is no paragraph, only whitespace: exit now. + ;; There is no paragraph, only whitespace: exit now. + (progn + (set-marker to nil) + nil) (or justify (setq justify (current-justification))) @@ -791,6 +794,7 @@ space does not end a sentence, so don't break a line there." ;; Leave point after final newline. (goto-char to) (unless (eobp) (forward-char 1)) + (set-marker to nil) ;; Return the fill-prefix we used fill-prefix))) |