[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 209/352: wcheck-define-condition-makroon lisää automatiikkaa
From: |
Stefan Monnier |
Subject: |
[elpa] 209/352: wcheck-define-condition-makroon lisää automatiikkaa |
Date: |
Mon, 07 Jul 2014 14:04:10 +0000 |
monnier pushed a commit to branch master
in repository elpa.
commit 1e9c172c7795aef853ed583433ea292a534f4128
Author: Teemu Likonen <address@hidden>
Date: Sun Jan 2 10:45:29 2011 +0000
wcheck-define-condition-makroon lisää automatiikkaa
---
wcheck-mode.el | 34 +++++++++-------------------------
1 files changed, 9 insertions(+), 25 deletions(-)
diff --git a/wcheck-mode.el b/wcheck-mode.el
index 5ae763b..ea945d6 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -565,9 +565,10 @@ This is used when language does not define a face."
;;; Macros
-(defmacro wcheck-define-condition (name superclasses &optional message)
+(defmacro wcheck-define-condition (name superclass &optional message)
`(progn
- (put ',name 'error-conditions ,superclasses)
+ (put ',name 'error-conditions
+ (append (get ',superclass 'error-conditions) (list ',name)))
(put ',name 'error-message ,message)
',name))
@@ -608,29 +609,12 @@ This is used when language does not define a face."
;;; Conditions
-(wcheck-define-condition wcheck-error '(error wcheck-error))
-
-
-(wcheck-define-condition
- wcheck-language-does-not-exist-error
- '(error wcheck-error wcheck-language-does-not-exist-error))
-
-
-(wcheck-define-condition
- wcheck-program-not-configured-error
- '(error wcheck-error wcheck-program-not-configured-error))
-
-
-(wcheck-define-condition
- wcheck-suggestion-error
- '(error wcheck-error wcheck-suggestion-error))
-
-
-(wcheck-define-condition
- wcheck-suggestion-program-error
- '(error wcheck-error
- wcheck-suggestion-error
- wcheck-suggestion-program-error))
+(wcheck-define-condition wcheck-error error)
+(wcheck-define-condition wcheck-language-does-not-exist-error wcheck-error)
+(wcheck-define-condition wcheck-program-not-configured-error wcheck-error)
+(wcheck-define-condition wcheck-suggestion-error wcheck-error)
+(wcheck-define-condition wcheck-suggestion-program-error
+ wcheck-suggestion-error)
;;; Interactive commands
- [elpa] 196/352: Uusi macro: wcheck-with-language-data, (continued)
- [elpa] 196/352: Uusi macro: wcheck-with-language-data, Stefan Monnier, 2014/07/07
- [elpa] 330/352: Add hyperlinks to Emacs, Flyspell and Speck mode, Stefan Monnier, 2014/07/07
- [elpa] 300/352: Simplify the customize code of wcheck-language-data, Stefan Monnier, 2014/07/07
- [elpa] 328/352: Add another <>'s around the email address, Stefan Monnier, 2014/07/07
- [elpa] 146/352: Käytetään #'-lukijamakroa funktion edessä, Stefan Monnier, 2014/07/07
- [elpa] 122/352: Poistetaan turha roina funktiosta wcheck-send-words, Stefan Monnier, 2014/07/07
- [elpa] 143/352: Sallitaan connection-argumentille arvoksi sekä "t" että "pty", Stefan Monnier, 2014/07/07
- [elpa] 289/352: Merge branch 'action-autoselect', Stefan Monnier, 2014/07/07
- [elpa] 309/352: Version 2012.01.29 (update copyrights too), Stefan Monnier, 2014/07/07
- [elpa] 311/352: Add full licence text (COPYING), Stefan Monnier, 2014/07/07
- [elpa] 209/352: wcheck-define-condition-makroon lisää automatiikkaa,
Stefan Monnier <=
- [elpa] 151/352: Uusi ominaisuus: mahdollisuus lukea vain tiettyjä alueita puskurista, Stefan Monnier, 2014/07/07
- [elpa] 325/352: Archive README.org too in elpa tar package, Stefan Monnier, 2014/07/07
- [elpa] 334/352: Mention ~/.emacs.d/init.el too as one of the Emacs init files, Stefan Monnier, 2014/07/07
- [elpa] 157/352: Lisätään predikaattifunktio wcheck-list-of-strings-p, Stefan Monnier, 2014/07/07
- [elpa] 166/352: Varmatoimisempi wcheck-choose-suggestion-minibuffer, Stefan Monnier, 2014/07/07
- [elpa] 140/352: Päivitetään Copyright-vuosi, Stefan Monnier, 2014/07/07
- [elpa] 147/352: Korjataan muuttujan wcheck-language-data kuvausta, Stefan Monnier, 2014/07/07