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
ea9ae18a
Commit
ea9ae18a
authored
Sep 08, 1999
by
Richard M. Stallman
Browse files
(fill-region-as-paragraph, canonically-space-region):
Respect colon-double-space at end of line.
parent
b89d72a1
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
11 additions
and
5 deletions
+11
-5
lisp/textmodes/fill.el
lisp/textmodes/fill.el
+11
-5
No files found.
lisp/textmodes/fill.el
View file @
ea9ae18a
...
...
@@ -175,12 +175,15 @@ Remove indentation from each line."
;; Make sure sentences ending at end of line get an extra space.
;; loses on split abbrevs ("Mr.\nSmith")
(
goto-char
beg
)
(
while
(
and
(
<
(
point
)
end
)
(
re-search-forward
"[.?!][])}\"']*$"
end
t
))
(
let
((
eol-double-space-re
(
if
colon-double-space
"[.?!:][])}\"']*$"
"[.?!][])}\"']*$"
)))
(
while
(
and
(
<
(
point
)
end
)
(
re-search-forward
eol-double-space-re
end
t
))
;; We insert before markers in case a caller such as
;; do-auto-fill has done a save-excursion with point at the end
;; of the line and wants it to stay at the end of the line.
(
insert-before-markers-and-inherit
?
))))
(
insert-before-markers-and-inherit
?
))))
)
(
defun
fill-context-prefix
(
from
to
&optional
first-line-regexp
)
"Compute a fill prefix from the text between FROM and TO.
...
...
@@ -422,8 +425,11 @@ space does not end a sentence, so don't break a line there."
;; Make sure sentences ending at end of line get an extra space.
;; loses on split abbrevs ("Mr.\nSmith")
(
while
(
re-search-forward
"[.?!][])}\"']*$"
nil
t
)
(
or
(
eobp
)
(
insert-and-inherit
?\
)))
(
let
((
eol-double-space-re
(
if
colon-double-space
"[.?!:][])}\"']*$"
"[.?!][])}\"']*$"
)))
(
while
(
re-search-forward
eol-double-space-re
nil
t
)
(
or
(
eobp
)
(
insert-and-inherit
?\
))))
(
goto-char
from
)
(
if
enable-multibyte-characters
...
...
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