Commit d320a41d authored by Richard M. Stallman's avatar Richard M. Stallman

(repunctuate-sentences): New function.

parent a28fe04b
......@@ -420,6 +420,14 @@ sentences. Also, every paragraph boundary terminates sentences as well."
(setq arg (1- arg)))
(constrain-to-field nil opoint t)))
(defun repunctuate-sentences ()
(interactive)
"Put two spaces at the end of sentences from point to the end of buffer.
It works using `query-replace-regexp'."
(query-replace-regexp "\\([]\"')]?\\)\\([.?!]\\)\\([]\"')]?\\) +"
"\\1\\2\\3 "))
(defun backward-sentence (&optional arg)
"Move backward to start of sentence. With arg, do it arg times.
See `forward-sentence' for more information."
......
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