[elpa] 208/352: Siirretään signaalien määrittelyt samaan paikkaan

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit a23c258c1358463b7618fcbf158cc542389de97f
Author: Teemu Likonen <address@hidden>
Date:   Sun Jan 2 10:45:08 2011 +0000

    Siirretään signaalien määrittelyt samaan paikkaan
---
 wcheck-mode.el |   50 ++++++++++++++++++++++++++++----------------------
 1 files changed, 28 insertions(+), 22 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index 8626a62..5ae763b 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -605,6 +605,34 @@ This is used when language does not define a face."
        ,@body)))
 
 
+;;; 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))
+
+
 ;;; Interactive commands
 
 
@@ -665,17 +693,6 @@ interactively) then change the global default language."
               (cdr error-data)))))
 
 
-(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))
-
-
 (defun wcheck-mode-turn-on ()
   ;; Turn the mode on, but first some checks.
   (let ((buffer (current-buffer))
@@ -1231,17 +1248,6 @@ the text and (3) marker at the end of the text."
                 start end)))))
 
 
-(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))
-
-
 ;;;###autoload
 (defun wcheck-spelling-suggestions (pos &optional event)
   "Offer spelling suggestions for marked text.