[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 16/352: Sananlukuajastin tarkistaa nyt, onko kyseinen kieli salli
From: |
Stefan Monnier |
Subject: |
[elpa] 16/352: Sananlukuajastin tarkistaa nyt, onko kyseinen kieli sallittu |
Date: |
Mon, 07 Jul 2014 14:01:27 +0000 |
monnier pushed a commit to branch master
in repository elpa.
commit 3322f33b384787ce0b145ef3981dd006b45010b4
Author: Teemu Likonen <address@hidden>
Date: Sat May 16 17:49:13 2009 +0000
Sananlukuajastin tarkistaa nyt, onko kyseinen kieli sallittu
Ajastin ei enää lue kieltä muuttujasta wcheck-buffer-process-data vaan
vaihtaa kyseiseen puskuriin komennolla "(with-current-buffer)" ja katsoo
muuttujaa wcheck-language. Jos kyseisessä muuttujassa ei ole sallittua
kieltä, sammutetaan oikoluku.
---
wcheck-mode.el | 30 +++++++++++++++++++-----------
1 files changed, 19 insertions(+), 11 deletions(-)
diff --git a/wcheck-mode.el b/wcheck-mode.el
index df5fc27..6d8d0f1 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -203,17 +203,25 @@ oletuskieli."
(defun wcheck-timer-read-send-words ()
;; Käydään läpi kaikki puskurit, jotka ovat pyytäneet päivitystä.
(dolist (buffer wcheck-timer-read-requested)
- (let ((lang (cdr (assq buffer wcheck-buffer-process-data))))
- ;; Käydään läpi kaikki ikkunat, joissa kyseinen puskuri on
- ;; näkyvissä, ja lähetetään sanat ulkoiselle prosessille.
- (walk-windows
- (function (lambda (window)
- (when (eq buffer (window-buffer window))
- (wcheck-send-words lang (wcheck-read-words lang
window)))))
- 'nomb t)
- ;; Sanat on lähetetty, joten voidaan poistaa tämä puskuri
- ;; päivityslistasta.
- (wcheck-timer-read-request-delete buffer)))
+ (with-current-buffer buffer
+ (if (not (wcheck-language-valid-p wcheck-language))
+ (progn
+ (wcheck-mode 0)
+ (message
+ (format "Kieltä \"%s\" ei ole olemassa, sammutetaan oikoluku"
+ wcheck-language)))
+ ;; Käydään läpi kaikki ikkunat, joissa kyseinen puskuri on
+ ;; näkyvissä, ja lähetetään sanat ulkoiselle prosessille.
+ (walk-windows
+ (function (lambda (window)
+ (when (eq buffer (window-buffer window))
+ (wcheck-send-words wcheck-language
+ (wcheck-read-words wcheck-language
+ window)))))
+ 'nomb t)
+ ;; Sanat on lähetetty, joten voidaan poistaa tämä puskuri
+ ;; päivityslistasta.
+ (wcheck-timer-read-request-delete buffer))))
;; Käynnistetään ajastin, joka maalaa sanat, mikäli joku puskuri on
;; sellaista pyytänyt.
- [elpa] 05/352: Parannetaan wcheck-language-muuttujan kuvausta, (continued)
- [elpa] 05/352: Parannetaan wcheck-language-muuttujan kuvausta, Stefan Monnier, 2014/07/07
- [elpa] 07/352: Maalataan paluusanat automaattisesti, Stefan Monnier, 2014/07/07
- [elpa] 10/352: Viitataan nykyiseen puskuriin eikä ikkunan sisältämään puskuriin, Stefan Monnier, 2014/07/07
- [elpa] 09/352: Poistetaan maalaukset riippumatta siitä, onko oikoluku päällä, Stefan Monnier, 2014/07/07
- [elpa] 11/352: Muotoillaan kooditekstiä uudelleen (ei toiminnallista muutosta), Stefan Monnier, 2014/07/07
- [elpa] 12/352: case-fold-search "nil", kun luetaan sanoja ikkunasta, Stefan Monnier, 2014/07/07
- [elpa] 14/352: Lähetetään prosessille rivinvaihto ennen sanamerkkijonoa, Stefan Monnier, 2014/07/07
- [elpa] 08/352: Oma ajastinkierros sanojen maalaamiselle, Stefan Monnier, 2014/07/07
- [elpa] 15/352: Tyhjennetään vastaanotettujen sanojen lista myöhemmin, Stefan Monnier, 2014/07/07
- [elpa] 13/352: Poistetaan turha tarkistus parametrien oikeellisuudesta, Stefan Monnier, 2014/07/07
- [elpa] 16/352: Sananlukuajastin tarkistaa nyt, onko kyseinen kieli sallittu,
Stefan Monnier <=
- [elpa] 17/352: Minibuf-virheilmoitus pois; sopimattoman kielen ilmoitukseen kielen nimi, Stefan Monnier, 2014/07/07
- [elpa] 20/352: Poistetaan error-kutsu kielenvaihtofunktiosta, Stefan Monnier, 2014/07/07
- [elpa] 18/352: setq-default eikä setq, kun määritellään oletuskieliasetukset, Stefan Monnier, 2014/07/07
- [elpa] 21/352: Kielenvaihto pyytää päivitystä vain oikoluvun ollessa päällä, Stefan Monnier, 2014/07/07
- [elpa] 19/352: Muutetaan tietueen nimi: discard -> regexp-discard, Stefan Monnier, 2014/07/07
- [elpa] 23/352: Ajastinfunktiolle uusi nimi: wcheck-timer-event, Stefan Monnier, 2014/07/07
- [elpa] 25/352: Käynnistetään ajastin muuttujan wcheck-timer perusteella, Stefan Monnier, 2014/07/07
- [elpa] 22/352: Käytetään kommunikointiin PTY:itä, jotta shell-skriptit toimivat, Stefan Monnier, 2014/07/07
- [elpa] 24/352: Siirretään ajastuksen sammutus wcheck-mode-funktioon, Stefan Monnier, 2014/07/07
- [elpa] 27/352: Turha kommentti pois koodista, Stefan Monnier, 2014/07/07