;;; rng-match.el --- matching of RELAX NG patterns against XML events
-;; Copyright (C) 2003, 2007-2011 Free Software Foundation, Inc.
+;; Copyright (C) 2003, 2007-2013 Free Software Foundation, Inc.
;; Author: James Clark
;; Keywords: XML, RelaxNG
(signal 'rng-compile-error
(list (apply 'format args))))
-(put 'rng-compile-error
- 'error-conditions
- '(error rng-error rng-compile-error))
-
-(put 'rng-compile-error
- 'error-message
- "Incorrect schema")
-
+(define-error 'rng-compile-error "Incorrect schema" 'rng-error)
;;; External API