[elpa] 157/352: Lisätään predikaattifunktio wcheck-list-of-strings-p

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit baa11fc3eea90969ad3b21936f81521f345db686
Author: Teemu Likonen <tliko...@iki.fi>
Date:   Mon Aug 2 12:18:44 2010 +0000

    Lisätään predikaattifunktio wcheck-list-of-strings-p
---
 wcheck-mode.el |    8 ++++++--
 1 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index 4fdee0e..8089c97 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -1042,8 +1042,7 @@ defined in `wcheck-language-data-defaults'."
                (eq key 'regexp-discard))
            (if (stringp value) value default-value))
           ((eq key 'args)
-           (cond ((and (listp value)
-                       (not (memq nil (mapcar #'stringp value))))
+           (cond ((wcheck-list-of-strings-p value)
                   value)
                  ((stringp value)
                   ;; For backwards compatibility
@@ -1070,6 +1069,11 @@ defined in `wcheck-language-data-defaults'."
        t))
 
 
+(defun wcheck-list-of-strings-p (object)
+  (and (listp object)
+       (not (memq nil (mapcar #'stringp object)))))
+
+
 (defun wcheck-error-program-not-executable (language program)
   (if (and (stringp program)
            (> (length program) 0))