Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
d320a41d
Commit
d320a41d
authored
May 23, 2003
by
Richard M. Stallman
Browse files
(repunctuate-sentences): New function.
parent
a28fe04b
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
8 additions
and
0 deletions
+8
-0
lisp/textmodes/paragraphs.el
lisp/textmodes/paragraphs.el
+8
-0
No files found.
lisp/textmodes/paragraphs.el
View file @
d320a41d
...
...
@@ -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.
"
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment