[elpa] 30/352: Kielenvaihtofunktio tarkistaa, onko ohjelmalla suoritusoikeudet

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit 60a4354f3f6b36d3cb8d648fc7374c2d9e9eb887
Author: Teemu Likonen <address@hidden>
Date:   Sat May 16 18:00:46 2009 +0000

    Kielenvaihtofunktio tarkistaa, onko ohjelmalla suoritusoikeudet
    
    Jos ohjelmalla, joka vastaa valittua kieltä, ei ole suoritusoikeuksia,
    sammutetaan oikoluku ja annetaan käyttäjälle varoitus.
---
 wcheck-mode.el |   23 +++++++++++++++--------
 1 files changed, 15 insertions(+), 8 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index cae5f7d..344ca9c 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -106,14 +106,21 @@ oletuskieli."
         (setq-default wcheck-language language)
       (setq wcheck-language language)
       (when wcheck-mode
-        (wcheck-update-buffer-process-data (current-buffer) language)
-        (wcheck-remove-overlays)))
+        (wcheck-update-buffer-process-data (current-buffer) language)))
 
-    ;; Jos kutsuttiin interaktiivisesti ja oikoluku on kytketty päälle,
-    ;; pyydetään päivitystä oikolukuun. Kielihän on saattanut vaihtua.
-    (when (and (called-interactively-p)
-               wcheck-mode)
-      (wcheck-timer-read-request (current-buffer)))))
+    (when (called-interactively-p)
+      (let ((program (wcheck-query-language-data language 'program)))
+        (cond ((not (wcheck-program-executable-p program))
+               (when wcheck-mode
+                 (wcheck-mode 0))
+               (message (format "Kielen \"%s\" ohjelma \"%s\" ei ole ajettava"
+                                language program)))
+
+              (wcheck-mode
+               (wcheck-timer-read-request (current-buffer))
+               (wcheck-remove-overlays)))))
+
+    wcheck-buffer-process-data))
 
 
 (define-minor-mode wcheck-mode