(rng-preferred-prefix-alist): Add some defaults.

(rng-preferred-prefix-alist-default): Remove.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8732275ee38228094e5b849aabb75ff57dda3fda..3b0c36c0e02cdfd2a7e9f3b34ba94d95816c4496 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2008-01-11  Jason Rumney  <jasonr@gnu.org>
 
+       * nxml/rng-nxml.el (rng-preferred-prefix-alist): Add some defaults.
+       (rng-preferred-prefix-alist-default): Remove.
+
        * nxml/nxml-uchnm.el (nxml-internal-unicode-char-name-sets-enabled):
        Rename from nxml-enable-unicode-char-name-sets-flag.
        (nxml-enable-unicode-char-name-sets-1): Merge into

diff --git a/lisp/nxml/rng-nxml.el b/lisp/nxml/rng-nxml.el
index cb040c9631137855f141d31a792fc0ff3ba01137..a854263752dcdca5a780529980159d6f2bdbe7b2 100644 (file)
--- a/lisp/nxml/rng-nxml.el
+++ b/lisp/nxml/rng-nxml.el
@@ -41,10 +41,12 @@
   :type 'boolean
   :group 'relax-ng)
 
-(defvar rng-preferred-prefix-alist-default nil
-  "Default value for variable `rng-preferred-prefix-alist'.")
-
-(defcustom rng-preferred-prefix-alist rng-preferred-prefix-alist-default
+(defcustom rng-preferred-prefix-alist
+  '(("http://www.w3.org/1999/XSL/Transform" . "xsl")
+    ("http://www.w3.org/1999/02/22-rdf-syntax-ns#" . "rdf")
+    ("http://www.w3.org/1999/xlink" . "xlink")
+    ("http://www.w3.org/2001/XmlSchema" . "xsd")
+    ("http://www.w3.org/2001/XMLSchema-instance" . "xsi"))
   "*Alist of namespaces vs preferred prefixes."
   :type '(repeat (cons :tag "With"
                       (string :tag "this namespace URI")