Mercurial > emacs
changeset 87324:c2d365f73e14
(rng-schema-locating-files-default)
(rng-schema-locating-file-schema-file): Use files in etc/schemas.
(rng-schema-loader-alist): Use rng-c-load-schema to load rnc files.
| author | Jason Rumney <jasonr@gnu.org> |
|---|---|
| date | Wed, 19 Dec 2007 00:55:32 +0000 |
| parents | 24f44404f3aa |
| children | 8e18b9e1e74a |
| files | lisp/nxml/rng-loc.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/nxml/rng-loc.el Wed Dec 19 00:55:16 2007 +0000 +++ b/lisp/nxml/rng-loc.el Wed Dec 19 00:55:32 2007 +0000 @@ -38,10 +38,12 @@ Nil if using a vacuous schema.") (make-variable-buffer-local 'rng-current-schema-file-name) -(defvar rng-schema-locating-files-default nil +(defvar rng-schema-locating-files-default + (list (expand-file-name "schema/schemas.xml" data-directory)) "Default value for variable `rng-schema-locating-files'.") -(defvar rng-schema-locating-file-schema-file nil +(defvar rng-schema-locating-file-schema-file + (list (expand-file-name "schema/locate.rnc" data-directory)) "File containing schema for schema locating files.") (defvar rng-schema-locating-file-schema nil @@ -52,7 +54,7 @@ :type '(repeat file) :group 'relax-ng) -(defvar rng-schema-loader-alist nil +(defvar rng-schema-loader-alist '(("rnc" . rng-c-load-schema)) "Alist of schema extensions vs schema loader functions.") (defvar rng-cached-document-element nil)