Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/prim/fill.el	Mon Aug 13 10:02:48 2007 +0200
+++ b/lisp/prim/fill.el	Mon Aug 13 10:03:52 2007 +0200
@@ -554,8 +554,10 @@
 			 (setq prefixcol (current-column))))))
 	      ;; Justify the line just ended, if desired.
 	      (if justify
-		  (if (eobp)
-		      (justify-current-line justify t t)
+		  (if (save-excursion (skip-chars-forward " \t") (eobp))
+		      (progn
+			(delete-horizontal-space)
+			(justify-current-line justify t t))
 		    (forward-line -1)
 		    (justify-current-line justify nil t)
 		    (forward-line 1))))))