[elpa] 187/352: Muutetaan wcheck-query-language-data-funktion rakennetta

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit 044b6fdc274ccb91fd268357bfffc21c532bfa0a
Author: Teemu Likonen <address@hidden>
Date:   Mon Dec 27 12:19:30 2010 +0000

    Muutetaan wcheck-query-language-data-funktion rakennetta
    
    Suurimmat muutokset ovat sisäisessä toiminnassa, mutta myös ulkoisessa
    toiminnassa on pieni muutos. Jos kysytään asetusta read-or-skip-faces,
    palautetaan yhdistettynä listana sekä kielikohtaiset että
    oletusasetukset. Tämä lisää wcheck-modeen uuden ominaisuuden:
    kielikohtaisista read-or-skip-faces-asetuksista puuttuvia asetuksia
    luetaan oletusasetuksista. Aiemmin kielikohtaisten read-or-skip-faces-
    asetusten lisäksi ei luettu oletusasetuksia, vaikka kyseinen kieli ei
    määrittäisi face-asetuksia jollekin major-tilalle.
---
 wcheck-mode.el |   33 ++++++++++++++++-----------------
 1 files changed, 16 insertions(+), 17 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index 0abe3cb..bea0e18 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -433,7 +433,8 @@ language-specific option does not exist."
     (regexp-body . "\\w+?")
     (regexp-end . "'*\\>")
     (regexp-discard . "\\`'+\\'")
-    (case-fold . nil))
+    (case-fold . nil)
+    (read-or-skip-faces (nil)))
   "Hard-coded default language configuration for `wcheck-mode'.
 This constant is for Wcheck mode's internal use only. This
 provides useful defaults if both `wcheck-language-data' and
@@ -1485,27 +1486,25 @@ the KEY then query the value from 
`wcheck-language-data-defaults'
 or `wcheck-language-data-defaults-hard-coded'."
 
   (when (wcheck-language-exists-p language)
-    (let* ((lang-key-value
+    (let* ((data
             (and (wcheck-list-of-lists-p wcheck-language-data)
                  (assq key (cdr (assoc language wcheck-language-data)))))
-           (lang-value (cdr lang-key-value))
-           (default-key-value
+           (default
              (and (wcheck-list-of-lists-p wcheck-language-data-defaults)
                   (assq key wcheck-language-data-defaults)))
-           (default-value (cdr default-key-value))
-           (hc-default-key-value
+           (hard-coded
             (assq key wcheck-language-data-defaults-hard-coded))
-           (hc-default-value (cdr hc-default-key-value)))
-
-      (cond ((and lang-key-value
-                  (wcheck-language-data-valid-p key lang-value))
-             lang-value)
-            ((and default-key-value
-                  (wcheck-language-data-valid-p key default-value))
-             default-value)
-            ((and hc-default-key-value
-                  (wcheck-language-data-valid-p key hc-default-value))
-             hc-default-value)))))
+           (conf
+            (list (when (wcheck-language-data-valid-p key (cdr data))
+                    data)
+                  (when (wcheck-language-data-valid-p key (cdr default))
+                    default)
+                  (when (wcheck-language-data-valid-p key (cdr hard-coded))
+                    hard-coded))))
+
+      (if (eq key 'read-or-skip-faces)
+          (apply #'append (mapcar #'cdr conf))
+        (cdr (assq key conf))))))
 
 
 (defun wcheck-language-exists-p (language)