[elpa] 16/352: Sananlukuajastin tarkistaa nyt, onko kyseinen kieli sallittu

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit 3322f33b384787ce0b145ef3981dd006b45010b4
Author: Teemu Likonen <tliko...@iki.fi>
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.