[elpa] 33/352: wcheck-language-valid-p tiiviimpään and-rakennemuotoon

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit 2fa0ec412737d6b6b34903bef810096d1adc9050
Author: Teemu Likonen <address@hidden>
Date:   Sat May 16 18:03:11 2009 +0000

    wcheck-language-valid-p tiiviimpään and-rakennemuotoon
---
 wcheck-mode.el |    9 +++------
 1 files changed, 3 insertions(+), 6 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index 087e163..cc89a3d 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -519,12 +519,9 @@ oletusarvon."
 (defun wcheck-language-valid-p (language)
   "Tarkistaa, onko LANGUAGE olemassa ja onko sille määritelty
 ulkoista ohjelmaa. Palauttaa t tai nil."
-  ;; Löytyykö kieltä?
-  (if (member language (mapcar 'car wcheck-language-data))
-      ;; Löytyy. Löytyykö sille määriteltyä ohjelmaa? Huom, tämä ei vielä
-      ;; testaa, onko kyseinen merkkijono ajettava ohjelma.
-      (if (stringp (wcheck-query-language-data language 'program))
-          t)))
+  (and (member language (mapcar 'car wcheck-language-data))
+       (stringp (wcheck-query-language-data language 'program))
+       t))
 
 
 (defun wcheck-program-executable-p (program)