From xemacs-m  Wed Apr 16 04:15:58 1997
Received: from elvenbow.nc.kyushu-u.ac.jp (elvenbow.nc.kyushu-u.ac.jp [133.5.6.4])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id EAA08413
	for <xemacs-beta@xemacs.org>; Wed, 16 Apr 1997 04:15:52 -0500 (CDT)
Received: from localhost (kasahara@localhost [127.0.0.1]) by elvenbow.nc.kyushu-u.ac.jp (8.8.5/3.5Wbeta) with ESMTP
	id SAA10822 for <xemacs-beta@xemacs.org>; Wed, 16 Apr 1997 18:15:19 +0900 (JST)
To: xemacs-beta@xemacs.org
Subject: Re: fill weirdness
In-Reply-To: Your message of "Wed, 16 Apr 1997 14:10:13 +0900"
References: <19970416141013B.kasahara@nc.kyushu-u.ac.jp>
X-Mailer: Mew version 1.69 on XEmacs 20.1
X-Fingerprint: 31 DC 9F DF C2 B9 8E 00  3A 7C 4F 0C 03 D8 AC 16
X-URL: http://www.nc.kyushu-u.ac.jp/~kasahara/
Mime-Version: 1.0
Content-Type: Text/Plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Message-Id: <19970416181517R.kasahara@nc.kyushu-u.ac.jp>
Date: Wed, 16 Apr 1997 18:15:17 +0900
From: Yoshiaki Kasahara <kasahara@nc.kyushu-u.ac.jp>
X-Dispatcher: impost version 0.99+ (Mar. 3, 1997)
Lines: 41

I compared fill.el in Mule 2.3 and XEmacs, and found some differences.
This patch fixes period-before-newline and justification problem for
me.  In fill.el of Mule, the newline deletion code is enclosed by
save-excursion to save the point.  I don't know which is better.

*** fill.el.DIST	Tue Mar 18 12:26:57 1997
--- fill.el	Wed Apr 16 18:06:41 1997
***************
*** 354,360 ****
  	  ;; loses on split abbrevs ("Mr.\nSmith")
  	  (while (re-search-forward "[.?!][])}\"']*$" nil t)
  	    ;; XEmacs change (no insert-and-inherit)
! 	    (or (eobp) (insert ?\ )))
  	  (goto-char from)
  	  (skip-chars-forward " \t")
  	  ;; Then change all newlines to spaces.
--- 354,360 ----
  	  ;; loses on split abbrevs ("Mr.\nSmith")
  	  (while (re-search-forward "[.?!][])}\"']*$" nil t)
  	    ;; XEmacs change (no insert-and-inherit)
! 	    (or (eobp) (insert ?\  ?\ )))
  	  (goto-char from)
  	  (skip-chars-forward " \t")
  	  ;; Then change all newlines to spaces.
***************
*** 391,396 ****
--- 391,397 ----
  	      (delete-char 1)		; delete newline
  	      (end-of-line)))
  	  ;; end patch
+ 	  (goto-char from)
   	  (if (and nosqueeze (not (eq justify 'full)))
  	      nil
  	    (canonically-space-region (or squeeze-after (point)) (point-max))

-- 
Yoshiaki Kasahara
KITE Network Operation Center, Computer Center, Kyushu University

Email addr:                           |  I'm free!   & ~ __-^-_/~
    kasahara@nc.kyushu-u.ac.jp        |               ~   \___/

