[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 109/352: Muutetaan wcheck-read-words hakemaan kielitiedot tietoka
From: |
Stefan Monnier |
Subject: |
[elpa] 109/352: Muutetaan wcheck-read-words hakemaan kielitiedot tietokannasta |
Date: |
Mon, 07 Jul 2014 14:02:54 +0000 |
monnier pushed a commit to branch master
in repository elpa.
commit c0f3b97c26c6497e0eb9192c3f9b266da51c6b3a
Author: Teemu Likonen <address@hidden>
Date: Wed Jul 22 07:59:41 2009 +0000
Muutetaan wcheck-read-words hakemaan kielitiedot tietokannasta
---
wcheck-mode.el | 35 ++++++++++++++++++-----------------
1 files changed, 18 insertions(+), 17 deletions(-)
diff --git a/wcheck-mode.el b/wcheck-mode.el
index 6000692..35f96d8 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -730,29 +730,30 @@ BUFFER from the list."
;;; Miscellaneous low-level functions
-(defun wcheck-read-words (language buffer beg end)
+(defun wcheck-read-words (buffer beg end)
"Return a list of text elements in BUFFER.
Scan BUFFER between positions BEG and END and search for text
-elements defined in LANGUAGE (see `wcheck-language-data'). Return
-a list containing visible text elements between BEG and END; all
-hidden parts are omitted."
+elements according to buffer's language settings (see
+`wcheck-language-data'). Return a list containing visible text
+elements between BEG and END; all hidden parts are omitted."
(when (buffer-live-p buffer)
(with-current-buffer buffer
(save-excursion
- (let ((regexp (concat
- (wcheck-query-language-data language 'regexp-start t)
- "\\("
- (wcheck-query-language-data language 'regexp-body t)
- "\\)"
- (wcheck-query-language-data language 'regexp-end t)))
-
- (syntax (eval (wcheck-query-language-data language 'syntax t)))
- (discard (wcheck-query-language-data language 'regexp-discard t))
- (case-fold-search
- (wcheck-query-language-data language 'case-fold t))
- (old-point 0)
- words)
+ (let* ((language (wcheck-get-buffer-data buffer :language))
+ (regexp (concat
+ (wcheck-query-language-data language 'regexp-start t)
+ "\\("
+ (wcheck-query-language-data language 'regexp-body t)
+ "\\)"
+ (wcheck-query-language-data language 'regexp-end t)))
+
+ (syntax (eval (wcheck-query-language-data language 'syntax t)))
+ (discard (wcheck-query-language-data language 'regexp-discard
t))
+ (case-fold-search
+ (wcheck-query-language-data language 'case-fold t))
+ (old-point 0)
+ words)
(with-syntax-table syntax
(goto-char beg)
- [elpa] 96/352: Customize-tyypin "face" tilalle "symbol", (continued)
- [elpa] 96/352: Customize-tyypin "face" tilalle "symbol", Stefan Monnier, 2014/07/07
- [elpa] 103/352: Siirretään overlayt uuteen paikkaan, Stefan Monnier, 2014/07/07
- [elpa] 105/352: wcheck-update-buffer-data uuden tietokannan mukaiseksi, Stefan Monnier, 2014/07/07
- [elpa] 110/352: Muutetaan wcheck-send-words hakemaan kielitiedot tietokannasta, Stefan Monnier, 2014/07/07
- [elpa] 107/352: Poistetaan turha wcheck-end-process, Stefan Monnier, 2014/07/07
- [elpa] 104/352: Lisätään matalan tason tietokantafunktiot, Stefan Monnier, 2014/07/07
- [elpa] 114/352: Asetetaan ajastinfunktiot hakemaan tiedot uudesta tietokannasta, Stefan Monnier, 2014/07/07
- [elpa] 108/352: Siirretään koukkujen asennus omiin funktioihinsa, Stefan Monnier, 2014/07/07
- [elpa] 112/352: Muutetaan wcheck-make-overlay hakemaan kielitiedot tietokannasta, Stefan Monnier, 2014/07/07
- [elpa] 116/352: Muutetaan tietokannan kyselyfunktio geneerisemmäksi, Stefan Monnier, 2014/07/07
- [elpa] 109/352: Muutetaan wcheck-read-words hakemaan kielitiedot tietokannasta,
Stefan Monnier <=
- [elpa] 120/352: Kielellistä hienosäätöä dokumentteihin, Stefan Monnier, 2014/07/07
- [elpa] 115/352: Muutetaan wcheck-mode ja -change-language käyttämään uutta tietokantaa, Stefan Monnier, 2014/07/07
- [elpa] 118/352: Lisätään koodin väliotsikoita, Stefan Monnier, 2014/07/07
- [elpa] 111/352: Muutetaan wcheck-paint-words hakemaan kielitiedot tietokannasta, Stefan Monnier, 2014/07/07
- [elpa] 121/352: Välitetään kaikki tiedot funktiolle wcheck-make-overlay, Stefan Monnier, 2014/07/07
- [elpa] 117/352: wcheck-receive-words varmemmaksi, Stefan Monnier, 2014/07/07
- [elpa] 123/352: Kielellistä säätöä kommentteihin ja funktion kuvaukseen, Stefan Monnier, 2014/07/07
- [elpa] 134/352: Korjataan kirjoitusvirhe; hienosäätöä, Stefan Monnier, 2014/07/07
- [elpa] 130/352: Korjataan kirjoitusvirhe, Stefan Monnier, 2014/07/07
- [elpa] 125/352: Yksinkertaistetaan kommenttia, Stefan Monnier, 2014/07/07