mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(fill-newline): Don't leave markers before the prefix.

Browse Source
This commit is contained in:
Stefan Monnier 2003-04-03 00:53:49 +00:00
parent 657059d02f
commit 29c1653c7a
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/textmodes/fill.el
View File

@ -523,7 +523,7 @@ The break position will be always after LINEBEG and generally before point."
;; We need one space at end of line so that
;; further filling won't delete it. NOTE: We
;; intentionally leave this one space to
;; distingush the case that user wants to put
;; distinguish the case that user wants to put
;; space between \c| characters.
(forward-char 1))
(insert ?\n)
@ -540,9 +540,10 @@ The break position will be always after LINEBEG and generally before point."
(fill-indent-to-left-margin)
(indent-according-to-mode))
;; Insert the fill prefix after indentation.
;; Set prefixcol so whitespace in the prefix won't get lost.
(and fill-prefix (not (equal fill-prefix ""))
(insert-and-inherit fill-prefix)))
;; Markers that were after the whitespace are now at point: insert
;; before them so they don't get stuck before the prefix.
(insert-before-markers-and-inherit fill-prefix)))
(defun fill-indent-to-left-margin ()
"Indent current line to the column given by `current-left-margin'."