Mercurial > hg > xemacs-beta

diff lisp/prim/fill.el @ 112:48d667d6f17f r20-1b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b8
author cvs
date Mon, 13 Aug 2007 09:20:48 +0200
parents fe104dbd9147
children 1370575f1259
line wrap: on
line diff
--- a/lisp/prim/fill.el	Mon Aug 13 09:19:47 2007 +0200
+++ b/lisp/prim/fill.el	Mon Aug 13 09:20:48 2007 +0200
@@ -1,6 +1,6 @@
 ;;; fill.el --- fill commands for XEmacs.
 
-;; Copyright (C) 1985, 86, 92, 94, 95, 1996 Free Software Foundation, Inc.
+;; Copyright (C) 1985, 86, 92, 94, 95, 1997 Free Software Foundation, Inc.
 
 ;; Keywords: wp
 
@@ -91,7 +91,7 @@
 	nil
       ;; we have skipped backward SPC or WAN (word-across-newline).  So move point forward again.
       (forward-char)
-      (if (<= opoint (point))
+      (if (< opoint (point))
 	  (forward-char -1)))))
 
 ;; Added for kinsoku processing. Use instead of
@@ -103,7 +103,7 @@
     (if (not (re-search-forward regexp lim 'move))
 	nil
       (forward-char -1)
-      (if (<= (point) opoint)
+      (if (< (point) opoint)
 	  (forward-char))))
   (if (featurep 'mule) (kinsoku-process-extend)))