[elpa] 209/352: wcheck-define-condition-makroon lisää automatiikkaa

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit 1e9c172c7795aef853ed583433ea292a534f4128
Author: Teemu Likonen <tliko...@iki.fi>
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