[Emacs-diffs] Changes to emacs/lisp/textmodes/fill.el [emacs-unicode-2]

[Miles Bader]

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