[elpa] 76/352: Yksinkertaisempi tapa tarkistaa tekstin invisible-ominaisuus

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit bdf0deefa7af67fd62decb6db6cce558a976655c
Author: Teemu Likonen <address@hidden>
Date:   Fri Jun 19 10:28:14 2009 +0000

    Yksinkertaisempi tapa tarkistaa tekstin invisible-ominaisuus
---
 wcheck-mode.el |    6 ++----
 1 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index bcbe19d..441a37f 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -720,8 +720,7 @@ only visible text elements; all hidden parts are omitted."
                        ;; in the current point position.
                        (throw 'infinite t))
 
-                      ((get-char-property (match-beginning 1)
-                                          'invisible buffer)
+                      ((invisible-p (match-beginning 1))
                        ;; This point is invisible. Let's jump forward to
                        ;; next change of "invisible" property.
                        (goto-char (next-single-char-property-change
@@ -783,8 +782,7 @@ table settings defined in LANGUAGE (see 
`wcheck-language-data')."
                          ;; We didn't move forward so break the loop.
                          ;; Otherwise we would loop endlessly.
                          (throw 'infinite t))
-                        ((get-char-property (match-beginning 1)
-                                            'invisible buffer)
+                        ((invisible-p (match-beginning 1))
                          ;; The point is invisible so jump forward to
                          ;; the next change of "invisible" text property.
                          (goto-char (next-single-char-property-change