monnier pushed a commit to branch master in repository elpa. commit 60a4354f3f6b36d3cb8d648fc7374c2d9e9eb887 Author: Teemu Likonen <tliko...@iki.fi> 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