diff options
Diffstat (limited to 'lisp/nxml/xsd-regexp.el')
| -rw-r--r-- | lisp/nxml/xsd-regexp.el | 17 |
1 files changed, 3 insertions, 14 deletions
diff --git a/lisp/nxml/xsd-regexp.el b/lisp/nxml/xsd-regexp.el index f63b2e6defb..8c0b26cdab9 100644 --- a/lisp/nxml/xsd-regexp.el +++ b/lisp/nxml/xsd-regexp.el @@ -466,13 +466,8 @@ whose value is a range-list." (- (length str) (length xsdre-current-regexp)))))))) -(put 'xsdre-invalid-regexp - 'error-conditions - '(error xsdre-invalid-regexp)) - -(put 'xsdre-invalid-regexp - 'error-message - "Invalid W3C XML Schema Datatypes regular expression") +(define-error 'xsdre-invalid-regexp + "Invalid W3C XML Schema Datatypes regular expression") (defun xsdre-parse-regexp () (let ((branches nil)) @@ -686,13 +681,7 @@ whose value is a range-list." ;; This error condition is used only internally. -(put 'xsdre-parse-error - 'error-conditions - '(error xsdre-parse-error)) - -(put 'xsdre-parse-error - 'error-message - "Internal error in parsing XSD regexp") +(define-error 'xsdre-parse-error "Internal error in parsing XSD regexp") ;;; Character class data |