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-region-as-paragraph, canonically-space-region):

Browse Source 
Respect colon-double-space at end of line.
This commit is contained in:
Richard M. Stallman 1999-09-08 07:50:19 +00:00
parent b89d72a18a
commit ea9ae18a55
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/textmodes/fill.el
View File

@ -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