Mercurial > emacs
comparison lisp/nxml/rng-loc.el @ 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 | 59f8036b16a5 |
| children | 9c863134ecd3 |
comparison
equal
deleted
inserted
replaced
| 87323:24f44404f3aa | 87324:c2d365f73e14 |
|---|---|
| 36 (defvar rng-current-schema-file-name nil | 36 (defvar rng-current-schema-file-name nil |
| 37 "Filename of schema being used for current buffer. | 37 "Filename of schema being used for current buffer. |
| 38 Nil if using a vacuous schema.") | 38 Nil if using a vacuous schema.") |
| 39 (make-variable-buffer-local 'rng-current-schema-file-name) | 39 (make-variable-buffer-local 'rng-current-schema-file-name) |
| 40 | 40 |
| 41 (defvar rng-schema-locating-files-default nil | 41 (defvar rng-schema-locating-files-default |
| 42 (list (expand-file-name "schema/schemas.xml" data-directory)) | |
| 42 "Default value for variable `rng-schema-locating-files'.") | 43 "Default value for variable `rng-schema-locating-files'.") |
| 43 | 44 |
| 44 (defvar rng-schema-locating-file-schema-file nil | 45 (defvar rng-schema-locating-file-schema-file |
| 46 (list (expand-file-name "schema/locate.rnc" data-directory)) | |
| 45 "File containing schema for schema locating files.") | 47 "File containing schema for schema locating files.") |
| 46 | 48 |
| 47 (defvar rng-schema-locating-file-schema nil | 49 (defvar rng-schema-locating-file-schema nil |
| 48 "Schema for schema locating files or nil if not yet loaded.") | 50 "Schema for schema locating files or nil if not yet loaded.") |
| 49 | 51 |
| 50 (defcustom rng-schema-locating-files rng-schema-locating-files-default | 52 (defcustom rng-schema-locating-files rng-schema-locating-files-default |
| 51 "*List of schema locating files." | 53 "*List of schema locating files." |
| 52 :type '(repeat file) | 54 :type '(repeat file) |
| 53 :group 'relax-ng) | 55 :group 'relax-ng) |
| 54 | 56 |
| 55 (defvar rng-schema-loader-alist nil | 57 (defvar rng-schema-loader-alist '(("rnc" . rng-c-load-schema)) |
| 56 "Alist of schema extensions vs schema loader functions.") | 58 "Alist of schema extensions vs schema loader functions.") |
| 57 | 59 |
| 58 (defvar rng-cached-document-element nil) | 60 (defvar rng-cached-document-element nil) |
| 59 | 61 |
| 60 (defvar rng-document-type-history nil) | 62 (defvar rng-document-type-history nil) |