[elpa] 40/352: Muutetaan oletuskielen tunnistusta varmatoimisemmaksi

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit f4070f9bbbe09bc319a12b1ca78b5858e4459a91
Author: Teemu Likonen <address@hidden>
Date:   Sun May 17 20:36:33 2009 +0000

    Muutetaan oletuskielen tunnistusta varmatoimisemmaksi
---
 wcheck-mode.el |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index 9d5dc61..21d9028 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -221,10 +221,10 @@ buffer-local but if GLOBAL is non-nil (prefix argument if 
called
 interactively) then change the default language for new buffers."
   (interactive
    (let* ((comp (mapcar 'car wcheck-language-data))
-          (default
-            (if (member wcheck-language comp)
-                wcheck-language
-              (car comp))))
+          (default (cond ((member wcheck-language comp)
+                          wcheck-language)
+                         ((car comp))
+                         (t ""))))
      (list (completing-read
             (format (if current-prefix-arg
                         "Default language for new buffers (%s): "