From: yamaoka <yamaoka>
Date: Tue, 10 Nov 1998 10:32:05 +0000 (+0000)
Subject: (next-visible-point): Cancel last change.
X-Git-Tag: apel-9_10~7
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=051386681d45ff39f4d034ab7a1c146eecb81c3c;p=elisp%2Fapel.git

(next-visible-point): Cancel last change.
---

diff --git a/ChangeLog b/ChangeLog
index 87cf1d8..417d24e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -3,10 +3,6 @@
 	* README.en, README.ja, pccl-20.el: Note that pccl-20 is not
 	for XEmacs 20.
 
-1998-11-10  Katsumi Yamaoka   <yamaoka@jpl.org>
-
-	* inv-19.el (next-visible-point): Copied from inv-xemacs.el.
-
 1998-11-08  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
 	* poe-18.el (eval-and-compile): Moved from poe.el.
diff --git a/inv-19.el b/inv-19.el
index 9bbba42..3f99a03 100644
--- a/inv-19.el
+++ b/inv-19.el
@@ -48,13 +48,11 @@
 
 (defun next-visible-point (pos)
   (save-excursion
-    (if (save-excursion
-	  (goto-char pos)
-	  (eq (following-char) ?\n))
-	(setq pos (1+ pos))
+    (goto-char (next-single-property-change pos 'invisible))
+    (if (eq (following-char) ?\n)
+	(forward-char)
       )
-    (or (next-single-property-change pos 'invisible)
-	(point-max))))
+    (point)))
 
 
 ;;; @ end