;;; rng-cmpct.el --- parsing of RELAX NG Compact Syntax schemas
-;; Copyright (C) 2003, 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
+;; Copyright (C) 2003, 2007-2015 Free Software Foundation, Inc.
;; Author: James Clark
-;; Keywords: XML, RelaxNG
+;; Keywords: wp, hypermedia, languages, XML, RelaxNG
;; This file is part of GNU Emacs.
;;; Error handling
-(put 'rng-c-incorrect-schema
- 'error-conditions
- '(error rng-error nxml-file-parse-error rng-c-incorrect-schema))
-
-(put 'rng-c-incorrect-schema
- 'error-message
- "Incorrect schema")
+(define-error 'rng-c-incorrect-schema
+ "Incorrect schema" '(rng-error nxml-file-parse-error))
(defun rng-c-signal-incorrect-schema (filename pos message)
(nxml-signal-file-parse-error filename
"*")))
(defun rng-c-process-escapes ()
- ;; Check for any nuls, since we will use nul chars
+ ;; Check for any NULs, since we will use NUL chars
;; for internal purposes.
(let ((pos (search-forward "\C-@" nil t)))
(and pos
(provide 'rng-cmpct)
;;; rng-cmpct.el
-
-;; arch-tag: 90395eb1-283b-4146-bbc1-6d6ef1704e57