[elpa] 145/352: Hyväksytään args-asetus vain, jos listan jäsenet ovat merkkijonoja

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit 06e35faad1ff2987ce4b7fdf85ef62c46d68e694
Author: Teemu Likonen <tliko...@iki.fi>
Date:   Sat Feb 13 21:58:40 2010 +0000

    Hyväksytään args-asetus vain, jos listan jäsenet ovat merkkijonoja
---
 wcheck-mode.el |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index 762cef9..7ccaaad 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -900,7 +900,8 @@ defined in `wcheck-language-data-defaults'."
                (eq key 'regexp-discard))
            (if (stringp value) value default-value))
           ((eq key 'args)
-           (cond ((listp value)
+           (cond ((and (listp value)
+                       (not (memq nil (mapcar #'stringp value))))
                   value)
                  ((stringp value)
                   ;; For backwards compatibility