Mercurial > emacs

comparison lisp/nxml/rng-nxml.el @ 111801:c06fec785962

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove leading `*' from nxml defcustom docs. * lisp/nxml/nxml-mode.el, lisp/nxml/nxml-outln.el, lisp/nxml/rng-loc.el: * lisp/nxml/rng-nxml.el, lisp/nxml/rng-valid.el: Remove leading `*' from defcustom docs.
author Glenn Morris <rgm@gnu.org>
date Thu, 02 Dec 2010 19:10:25 -0800
parents 1d1d5d9bd884
children 417b1e4d63cd
comparison
equal deleted inserted replaced
111800:232048b47ed4 111801:c06fec785962
1 ;;; rng-nxml.el --- make nxml-mode take advantage of rng-validate-mode 1 ;;; rng-nxml.el --- make nxml-mode take advantage of rng-validate-mode
2 2
3 ;; Copyright (C) 2003, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. 3 ;; Copyright (C) 2003, 2007, 2008, 2009, 2010
4 ;; Free Software Foundation, Inc.
4 5
5 ;; Author: James Clark 6 ;; Author: James Clark
6 ;; Keywords: XML, RelaxNG 7 ;; Keywords: XML, RelaxNG
7 8
8 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
33 (require 'rng-valid) 34 (require 'rng-valid)
34 (require 'nxml-mode) 35 (require 'nxml-mode)
35 (require 'rng-loc) 36 (require 'rng-loc)
36 37
37 (defcustom rng-nxml-auto-validate-flag t 38 (defcustom rng-nxml-auto-validate-flag t
38 "*Non-nil means automatically turn on validation with nxml-mode." 39 "Non-nil means automatically turn on validation with nxml-mode."
39 :type 'boolean 40 :type 'boolean
40 :group 'relax-ng) 41 :group 'relax-ng)
41 42
42 (defcustom rng-preferred-prefix-alist 43 (defcustom rng-preferred-prefix-alist
43 '(("http://www.w3.org/1999/XSL/Transform" . "xsl") 44 '(("http://www.w3.org/1999/XSL/Transform" . "xsl")
45 ("http://www.w3.org/1999/xlink" . "xlink") 46 ("http://www.w3.org/1999/xlink" . "xlink")
46 ("http://www.w3.org/2001/XmlSchema" . "xsd") 47 ("http://www.w3.org/2001/XmlSchema" . "xsd")
47 ("http://www.w3.org/2001/XMLSchema-instance" . "xsi") 48 ("http://www.w3.org/2001/XMLSchema-instance" . "xsi")
48 ("http://purl.org/dc/elements/1.1/" . "dc") 49 ("http://purl.org/dc/elements/1.1/" . "dc")
49 ("http://purl.org/dc/terms/" . "dcterms")) 50 ("http://purl.org/dc/terms/" . "dcterms"))
50 "*Alist of namespaces vs preferred prefixes." 51 "Alist of namespaces vs preferred prefixes."
51 :type '(repeat (cons :tag "With" 52 :type '(repeat (cons :tag "With"
52 (string :tag "this namespace URI") 53 (string :tag "this namespace URI")
53 (string :tag "use this prefix"))) 54 (string :tag "use this prefix")))
54 :group 'relax-ng) 55 :group 'relax-ng)
55 56
589 (rng-uniquify-equal (sort (mapcar 'rng-escape-string strings) 590 (rng-uniquify-equal (sort (mapcar 'rng-escape-string strings)
590 'string<)))) 591 'string<))))
591 592
592 (provide 'rng-nxml) 593 (provide 'rng-nxml)
593 594
594 ;; arch-tag: bec0d6ed-6be1-4540-9c2c-6f56e8e55d8b
595 ;;; rng-nxml.el ends here 595 ;;; rng-nxml.el ends here