From xemacs-m  Sun Jun 15 14:10:49 1997
Received: from bittersweet.inetarena.com (karlheg@bittersweet.inetarena.com [206.129.216.38])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id OAA16431
	for <xemacs-beta@xemacs.org>; Sun, 15 Jun 1997 14:10:47 -0500 (CDT)
Received: (from karlheg@localhost)
	by bittersweet.inetarena.com (8.8.5/8.8.5) id MAA07681;
	Sun, 15 Jun 1997 12:11:02 -0700
Date: Sun, 15 Jun 1997 12:11:02 -0700
Message-Id: <199706151911.MAA07681@bittersweet.inetarena.com>
From: "Karl M. Hegbloom" <karlheg@inetarena.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
To: <xemacs-beta@xemacs.org>
Subject: [patch] apel/emu-xemacs.el
X-Mailer: VM 6.32 under 20.3 "Oslo" XEmacs Lucid (beta7)
X-Face: /Q}=yl}1_v7nP)xXo5XjG8+tl@=uVu7o5u6)f]zN?+<hB!K.m9:[|*p34jVN`O;:XZXVSy>/\R>qDt(t8w!-i{(y0"`jFw^uk8inzO9wXabd'CdjUWfC\GHi:6nO*YC89#-qD>Q4r%9!V"<RYJ=7D#$";q=zML5'!=wvXk^$`6FT=5CMofQX)WUKt0p:OKl.mFOXx/D


 I'm building you a changelog entry for all of these too.

8<----------------------------------------------------------------->8
*** emu-xemacs.el.orig	Sun Jun 15 12:09:16 1997
--- emu-xemacs.el	Sun Jun 15 12:09:35 1997
***************
*** 67,73 ****
  (defun invisible-region (start end)
    (if (save-excursion
  	(goto-char start)
! 	(eq (following-char) ?\n)
  	)
        (setq start (1+ start))
      )
--- 67,73 ----
  (defun invisible-region (start end)
    (if (save-excursion
  	(goto-char start)
! 	(eq (char-after (point)) ?\n)
  	)
        (setq start (1+ start))
      )
***************
*** 81,87 ****
  (defun invisible-p (pos)
    (if (save-excursion
  	(goto-char pos)
! 	(eq (following-char) ?\n)
  	)
        (setq pos (1+ pos))
      )
--- 81,87 ----
  (defun invisible-p (pos)
    (if (save-excursion
  	(goto-char pos)
! 	(eq (char-after (point)) ?\n)
  	)
        (setq pos (1+ pos))
      )
***************
*** 92,98 ****
    (save-excursion
      (if (save-excursion
  	  (goto-char pos)
! 	  (eq (following-char) ?\n)
  	  )
  	(setq pos (1+ pos))
        )
--- 92,98 ----
    (save-excursion
      (if (save-excursion
  	  (goto-char pos)
! 	  (eq (char-after (point)) ?\n)
  	  )
  	(setq pos (1+ pos))
        )
8<----------------------------------------------------------------->8

-- 
Karl M. Hegbloom <karlheg@inetarena.com>
http://www.inetarena.com/~karlheg
Portland, OR  USA
Debian GNU 1.3  Linux 2.1.36 AMD K5 PR-133

