[elpa] 205/352: Lisätään makro wcheck-define-condition

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit 99548eefa020403b8730fcfcfde7f7b86e2b9e7e
Author: Teemu Likonen <tliko...@iki.fi>
Date:   Sun Jan 2 10:44:01 2011 +0000

    Lisätään makro wcheck-define-condition
    
    Tällä makrolla voi helposti lisätä omia virheilmoitusluokkia.
---
 wcheck-mode.el |    7 +++++++
 1 files changed, 7 insertions(+), 0 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index df9fe82..b8d788c 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -565,6 +565,13 @@ This is used when language does not define a face."
 ;;; Macros
 
 
+(defmacro wcheck-define-condition (name superclasses &optional message)
+  `(progn
+     (put ',name 'error-conditions ,superclasses)
+     (put ',name 'error-message ,message)
+     ',name))
+
+
 (defmacro wcheck-loop-over-reqs-engine (key var &rest body)
   `(dolist (,var (delq nil (mapcar (lambda (buffer)
                                      (when (wcheck-buffer-data-get