From 051386681d45ff39f4d034ab7a1c146eecb81c3c Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 10 Nov 1998 10:32:05 +0000 Subject: [PATCH] (next-visible-point): Cancel last change. --- ChangeLog | 4 ---- inv-19.el | 10 ++++------ 2 files changed, 4 insertions(+), 10 deletions(-) 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 - - * inv-19.el (next-visible-point): Copied from inv-xemacs.el. - 1998-11-08 MORIOKA Tomohiko * 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 -- 1.7.10.4