monnier pushed a commit to branch master
in repository elpa.
commit 60a4354f3f6b36d3cb8d648fc7374c2d9e9eb887
Author: Teemu Likonen <[email protected]>
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
