Mercurial > hg > xemacs-beta

comparison lisp/prim/fill.el @ 207:e45d5e7c476e r20-4b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b2
author cvs
date Mon, 13 Aug 2007 10:03:52 +0200
parents eb5470882647
children
comparison
equal deleted inserted replaced
206:d3e9274cbc4e 207:e45d5e7c476e
552 (progn 552 (progn
553 (insert fill-prefix) 553 (insert fill-prefix)
554 (setq prefixcol (current-column)))))) 554 (setq prefixcol (current-column))))))
555 ;; Justify the line just ended, if desired. 555 ;; Justify the line just ended, if desired.
556 (if justify 556 (if justify
557 (if (eobp) 557 (if (save-excursion (skip-chars-forward " \t") (eobp))
558 (justify-current-line justify t t) 558 (progn
559 (delete-horizontal-space)
560 (justify-current-line justify t t))
559 (forward-line -1) 561 (forward-line -1)
560 (justify-current-line justify nil t) 562 (justify-current-line justify nil t)
561 (forward-line 1)))))) 563 (forward-line 1))))))
562 ;; Leave point after final newline. 564 ;; Leave point after final newline.
563 (goto-char (point-max))) 565 (goto-char (point-max)))