monnier pushed a commit to branch master
in repository elpa.
commit 11cd1925f63cc8c3818469752a52859b7fd88b45
Author: Teemu Likonen <[email protected]>
Date: Fri May 22 11:16:43 2009 +0000
Funktio wcheck-read-words englanniksi
---
wcheck-mode.el | 8 +++++++-
1 files changed, 7 insertions(+), 1 deletions(-)
diff --git a/wcheck-mode.el b/wcheck-mode.el
index 790e8f7..b534399 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -643,7 +643,10 @@ oikeanlaiset."
(defun wcheck-read-words (language window)
- "Palauttaa listan sanoista, jotka näkyvät ikkunassa IKKUNA."
+ "Return a list of visible text elements in WINDOW.
+Function scans WINDOW and searches for text elements defined in
+LANGUAGE (see `wcheck-language-data'). The returned list contains
+only visible text elements; all hidden parts are omitted."
(when (window-live-p window)
(with-selected-window window
(save-excursion
@@ -669,12 +672,15 @@ oikeanlaiset."
(while (re-search-forward regexp w-end t)
(cond ((get-char-property (match-beginning 1)
'invisible buffer)
+ ;; This point is invisible. Let's jump forward to
+ ;; next change of "invisible" property.
(goto-char (next-single-char-property-change
(match-beginning 1) 'invisible buffer w-end)))
((or (equal discard "")
(not (string-match discard
(match-string-no-properties 1))))
+ ;; Add the match to the word list.
(add-to-list 'words
(match-string-no-properties 1)
'append)
