HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
a28fe04
)
(repunctuate-sentences): New function.
author
Richard M. Stallman
<rms@gnu.org>
Fri, 23 May 2003 12:46:38 +0000
(12:46 +0000)
committer
Richard M. Stallman
<rms@gnu.org>
Fri, 23 May 2003 12:46:38 +0000
(12:46 +0000)
lisp/textmodes/paragraphs.el
patch
|
blob
|
blame
|
history
diff --git
a/lisp/textmodes/paragraphs.el
b/lisp/textmodes/paragraphs.el
index
dfec0ac
..
735eeca
100644
(file)
--- a/
lisp/textmodes/paragraphs.el
+++ b/
lisp/textmodes/paragraphs.el
@@
-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."