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
24aac19d
Commit
24aac19d
authored
Apr 02, 1995
by
Richard M. Stallman
Browse files
(fill-region-as-paragraph): Remove fill-prefix first, then remove indentation.
parent
efde1132
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
4 deletions
+6
-4
lisp/textmodes/fill.el
lisp/textmodes/fill.el
+6
-4
No files found.
lisp/textmodes/fill.el
View file @
24aac19d
...
...
@@ -211,9 +211,6 @@ space does not end a sentence, so don't break a line there."
(
if
(
or
(
memq
justify
'
(
right
center
))
(
<
(
current-indentation
)
(
current-left-margin
)))
(
indent-to-left-margin
))
;; and remove indentation from other lines.
(
beginning-of-line
2
)
(
indent-region
(
point
)
(
point-max
)
0
)
;; Delete the fill prefix from every line except the first.
;; The first line may not even have a fill prefix.
(
goto-char
from
)
...
...
@@ -235,7 +232,12 @@ space does not end a sentence, so don't break a line there."
(
goto-char
from
)
(
and
(
looking-at
fpre
)
(
goto-char
(
match-end
0
)))
(
setq
from
(
point
)))))
;; "from" is now before the text to fill,
;; Remove indentation from lines other than the first.
(
beginning-of-line
2
)
(
indent-region
(
point
)
(
point-max
)
0
)
(
goto-char
from
)
;; FROM, and point, are now before the text to fill,
;; but after any fill prefix on the first line.
;; Make sure sentences ending at end of line get an extra space.
...
...
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