420 |
(setq arg (1- arg))) |
(setq arg (1- arg))) |
421 |
(constrain-to-field nil opoint t))) |
(constrain-to-field nil opoint t))) |
422 |
|
|
423 |
|
(defun repunctuate-sentences () |
424 |
|
(interactive) |
425 |
|
"Put two spaces at the end of sentences from point to the end of buffer. |
426 |
|
It works using `query-replace-regexp'." |
427 |
|
(query-replace-regexp "\\([]\"')]?\\)\\([.?!]\\)\\([]\"')]?\\) +" |
428 |
|
"\\1\\2\\3 ")) |
429 |
|
|
430 |
|
|
431 |
(defun backward-sentence (&optional arg) |
(defun backward-sentence (&optional arg) |
432 |
"Move backward to start of sentence. With arg, do it arg times. |
"Move backward to start of sentence. With arg, do it arg times. |
433 |
See `forward-sentence' for more information." |
See `forward-sentence' for more information." |