diff options
| author | Sam Steingold <sds@gnu.org> | 2010-11-30 12:57:48 -0500 |
|---|---|---|
| committer | Sam Steingold <sds@gnu.org> | 2010-11-30 12:57:48 -0500 |
| commit | f7ca27a1ef148f7d8c1a3238f067a7d6d289fdd0 (patch) | |
| tree | 0649394490bbba530263aaef48653a64fa4b01ae /lisp/nxml/rng-valid.el | |
| parent | 088c8c092b817674103b1ebbba35df8d6ede4562 (diff) | |
| download | emacs-f7ca27a1ef148f7d8c1a3238f067a7d6d289fdd0.tar.gz emacs-f7ca27a1ef148f7d8c1a3238f067a7d6d289fdd0.tar.bz2 emacs-f7ca27a1ef148f7d8c1a3238f067a7d6d289fdd0.zip | |
* lisp/nxml/nxml-mode.el (nxml-parent-document): Add a variable.
(nxml-parent-document-set): A function to set `nxml-parent-document'.
(nxml-mode): Define using `define-derived-mode' instead of `defun'.
(nxml-mode-hook): Remove `defcustom' (auto-defined by
define-derived-mode').
* lisp/nxml/rng-valid.el (rng-dtd-trivial-p): Add a helper function for
users who want to call `nxml-parent-document-set'.
Diffstat (limited to 'lisp/nxml/rng-valid.el')
| -rw-r--r-- | lisp/nxml/rng-valid.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/nxml/rng-valid.el b/lisp/nxml/rng-valid.el index 4756b50dcc7..42c741bdaca 100644 --- a/lisp/nxml/rng-valid.el +++ b/lisp/nxml/rng-valid.el @@ -518,6 +518,9 @@ Return t if there is work to do, nil otherwise." (goto-char pos)) (t (rng-set-initial-state)))))))))) +(defun rng-dtd-trivial-p (dtd) + "Check whether the current dtd is different from the trivial default." + (or (null dtd) (eq dtd xmltok-predefined-entity-alist))) (defun rng-do-some-validation-1 (&optional continue-p-function) (let ((limit (+ rng-validate-up-to-date-end |