[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 187/352: Muutetaan wcheck-query-language-data-funktion rakennetta
From: |
Stefan Monnier |
Subject: |
[elpa] 187/352: Muutetaan wcheck-query-language-data-funktion rakennetta |
Date: |
Mon, 07 Jul 2014 14:03:48 +0000 |
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)
- [elpa] 183/352: Vaihdetaan esimerkkiin "Finnish" entisen "suomi":n tilalle, (continued)
- [elpa] 183/352: Vaihdetaan esimerkkiin "Finnish" entisen "suomi":n tilalle, Stefan Monnier, 2014/07/07
- [elpa] 171/352: Täydennetään funktioiden kuvauksia ym. pientä järjestelyä, Stefan Monnier, 2014/07/07
- [elpa] 170/352: Välitetään hiiritapahtuma oikolukuehdotusfunktiolle, Stefan Monnier, 2014/07/07
- [elpa] 184/352: Lisätään ;;;###autoload, Stefan Monnier, 2014/07/07
- [elpa] 173/352: Täydennetään funktion wcheck-spelling-suggestions kuvausta, Stefan Monnier, 2014/07/07
- [elpa] 185/352: Customize-asetusten hienosäätöä, Stefan Monnier, 2014/07/07
- [elpa] 188/352: Customize tukemaan uusia read-or-skip-faces-toimintoja, Stefan Monnier, 2014/07/07
- [elpa] 180/352: Tulostetaan [Empty string], mikäli korvattava teksti on tyhjä merkkijono, Stefan Monnier, 2014/07/07
- [elpa] 179/352: Uusi ominaisuus: oikolukuohjelma voi olla myös Emacs Lisp -funktio, Stefan Monnier, 2014/07/07
- [elpa] 186/352: Muutetaan face-predikaattitoiminto selkeämmäksi, Stefan Monnier, 2014/07/07
- [elpa] 187/352: Muutetaan wcheck-query-language-data-funktion rakennetta,
Stefan Monnier <=
- [elpa] 190/352: Asennusohjeen kielellistä säätöä, Stefan Monnier, 2014/07/07
- [elpa] 194/352: Muutetaan virheilmoitus yhdenmuotoiseksi muiden vastaavien kanssa, Stefan Monnier, 2014/07/07
- [elpa] 189/352: Muuttujien dokumentit ja esimerkkiasetukset ajan tasalle, Stefan Monnier, 2014/07/07
- [elpa] 195/352: Päivitetään versionumero: 2010.12.27, Stefan Monnier, 2014/07/07
- [elpa] 182/352: Uusi ominaisuus: käyttäjä voi nyt vaikuttaa oletusasetuksiin, Stefan Monnier, 2014/07/07
- [elpa] 191/352: Muuttujan dokumentin kielellistä säätöä, Stefan Monnier, 2014/07/07
- [elpa] 192/352: Muutetaan wcheck-customize-ryhmän otsikko, Stefan Monnier, 2014/07/07
- [elpa] 198/352: Dokumentteja ajan tasalle: tarkistusohjelma voi olla myös funktio, Stefan Monnier, 2014/07/07
- [elpa] 197/352: Muutetaan monet word-sanat string-sanoiksi, Stefan Monnier, 2014/07/07
- [elpa] 201/352: Siirretään wcheck-loop-over-* makrojen yhteiset osat omaksi makroksi, Stefan Monnier, 2014/07/07