/[emacs]/emacs/lisp/textmodes/fill.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/fill.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.181 by lektu, Tue Aug 9 14:01:29 2005 UTC revision 1.182 by jurta, Fri Oct 21 08:50:28 2005 UTC
# Line 344  and `fill-nobreak-invisible'." Line 344  and `fill-nobreak-invisible'."
344       ;; it at the end of the line.       ;; it at the end of the line.
345       (and sentence-end-double-space       (and sentence-end-double-space
346            (save-excursion            (save-excursion
347              (skip-chars-backward ". ")              (skip-chars-backward " ")
348              (looking-at "\\. \\([^ ]\\|$\\)")))              (and (eq (preceding-char) ?.)
349                     (looking-at " \\([^ ]\\|$\\)"))))
350       ;; Another approach to the same problem.       ;; Another approach to the same problem.
351       (save-excursion       (save-excursion
352         (skip-chars-backward ". ")         (skip-chars-backward " ")
353         (and (looking-at "\\.")         (and (eq (preceding-char) ?.)
354              (not (looking-at (sentence-end)))))              (not (progn (forward-char -1) (looking-at (sentence-end))))))
355       ;; Don't split a line if the rest would look like a new paragraph.       ;; Don't split a line if the rest would look like a new paragraph.
356       (unless use-hard-newlines       (unless use-hard-newlines
357         (save-excursion         (save-excursion

Legend:
Removed from v.1.181  
changed lines
  Added in v.1.182

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26