;;; rng-match.el --- matching of RELAX NG patterns against XML events
-;; Copyright (C) 2003, 2007, 2008 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
(provide 'rng-match)
-;; arch-tag: c8c50733-edcf-49fb-85e2-0aac8749b7f8
;;; rng-match.el ends here