mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-13 16:38:14 +00:00
Code Issues Releases Activity

(repunctuate-sentences): New function.

Browse Source
This commit is contained in:
Richard M. Stallman 2003-05-23 12:46:38 +00:00
parent a28fe04bbd
commit d320a41dbf
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/textmodes/paragraphs.el
View File

@ -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."