[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/textmodes/fill.el [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/textmodes/fill.el [emacs-unicode-2] |
Date: |
Mon, 28 Jun 2004 04:36:08 -0400 |
Index: emacs/lisp/textmodes/fill.el
diff -c emacs/lisp/textmodes/fill.el:1.164.2.1
emacs/lisp/textmodes/fill.el:1.164.2.2
*** emacs/lisp/textmodes/fill.el:1.164.2.1 Fri Apr 16 12:50:37 2004
--- emacs/lisp/textmodes/fill.el Mon Jun 28 07:29:59 2004
***************
*** 155,161 ****
and `sentence-end-without-period').
Remove indentation from each line."
(interactive "*r")
! (let ((end-spc-re (concat "\\(" sentence-end "\\) *\\| +")))
(save-excursion
(goto-char beg)
;; Nuke tabs; they get screwed up in a fill.
--- 155,161 ----
and `sentence-end-without-period').
Remove indentation from each line."
(interactive "*r")
! (let ((end-spc-re (concat "\\(" (sentence-end) "\\) *\\| +")))
(save-excursion
(goto-char beg)
;; Nuke tabs; they get screwed up in a fill.
***************
*** 349,355 ****
(save-excursion
(skip-chars-backward ". ")
(and (looking-at "\\.")
! (not (looking-at sentence-end))))
;; Don't split a line if the rest would look like a new paragraph.
(unless use-hard-newlines
(save-excursion
--- 349,355 ----
(save-excursion
(skip-chars-backward ". ")
(and (looking-at "\\.")
! (not (looking-at (sentence-end)))))
;; Don't split a line if the rest would look like a new paragraph.
(unless use-hard-newlines
(save-excursion
***************
*** 424,433 ****
;; loses on split abbrevs ("Mr.\nSmith")
(let ((eol-double-space-re
(cond
! ((not colon-double-space) (concat sentence-end "$"))
;; Try to add the : inside the `sentence-end' regexp.
! ((string-match "\\[[^][]*\\(\\.\\)[^][]*\\]" sentence-end)
! (concat (replace-match ".:" nil nil sentence-end 1) "$"))
;; Can't find the right spot to insert the colon.
(t "[.?!:][])}\"']*$")))
(sentence-end-without-space-list
--- 424,433 ----
;; loses on split abbrevs ("Mr.\nSmith")
(let ((eol-double-space-re
(cond
! ((not colon-double-space) (concat (sentence-end) "$"))
;; Try to add the : inside the `sentence-end' regexp.
! ((string-match "\\[[^][]*\\(\\.\\)[^][]*\\]" (sentence-end))
! (concat (replace-match ".:" nil nil (sentence-end) 1) "$"))
;; Can't find the right spot to insert the colon.
(t "[.?!:][])}\"']*$")))
(sentence-end-without-space-list
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/textmodes/fill.el [emacs-unicode-2],
Miles Bader <=