/[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.158 by monnier, Thu Apr 3 00:53:49 2003 UTC revision 1.159 by monnier, Fri Apr 4 20:56:10 2003 UTC
# Line 450  Point is moved to just past the fill pre Line 450  Point is moved to just past the fill pre
450    (subst-char-in-region from to ?\n ?\ )    (subst-char-in-region from to ?\n ?\ )
451    (if (and nosqueeze (not (eq justify 'full)))    (if (and nosqueeze (not (eq justify 'full)))
452        nil        nil
453      (canonically-space-region (or squeeze-after (point)) to))      (canonically-space-region (or squeeze-after (point)) to)
454        ;; Remove trailing whitespace.
455        ;; Maybe canonically-space-region should do that.
456        (goto-char to) (delete-horizontal-space))
457    (goto-char from))    (goto-char from))
458    
459  (defun fill-move-to-break-point (linebeg)  (defun fill-move-to-break-point (linebeg)

Legend:
Removed from v.1.158  
changed lines
  Added in v.1.159

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