Add 2012 to FSF copyright years for Emacs files
[bpt/emacs.git] / lisp / nxml / rng-nxml.el
index 9fb69b6..1047ead 100644 (file)
@@ -1,6 +1,6 @@
 ;;; rng-nxml.el --- make nxml-mode take advantage of rng-validate-mode
 
-;; Copyright (C) 2003, 2007, 2008 Free Software Foundation, Inc.
+;; Copyright (C) 2003, 2007-2012  Free Software Foundation, Inc.
 
 ;; Author: James Clark
 ;; Keywords: XML, RelaxNG
@@ -35,7 +35,7 @@
 (require 'rng-loc)
 
 (defcustom rng-nxml-auto-validate-flag t
-  "*Non-nil means automatically turn on validation with nxml-mode."
+  "Non-nil means automatically turn on validation with nxml-mode."
   :type 'boolean
   :group 'relax-ng)
 
@@ -47,7 +47,7 @@
     ("http://www.w3.org/2001/XMLSchema-instance" . "xsi")
     ("http://purl.org/dc/elements/1.1/" . "dc")
     ("http://purl.org/dc/terms/" . "dcterms"))
-  "*Alist of namespaces vs preferred prefixes."
+  "Alist of namespaces vs preferred prefixes."
   :type '(repeat (cons :tag "With"
                       (string :tag "this namespace URI")
                       (string :tag "use this prefix")))
@@ -372,7 +372,7 @@ If unsure, return non-nil."
 (defun rng-set-state-after (&optional pos)
   "Set the state for after parsing the first token with endpoint >= POS.
 This does not change the xmltok state or point.  However, it does
-set `xmltok-dtd'. Returns the position of the end of the token."
+set `xmltok-dtd'.  Returns the position of the end of the token."
   (unless pos (setq pos (point)))
   (when (< rng-validate-up-to-date-end pos)
     (message "Parsing...")
@@ -448,7 +448,7 @@ set `xmltok-dtd'. Returns the position of the end of the token."
          (rng-process-start-tag 'stop)
          (rng-find-undeclared-prefixes)
          t)))))
-       
+
 (defun rng-find-undeclared-prefixes ()
   ;; Start with the newly effective namespace declarations.
   ;; (Includes declarations added during recovery.)
@@ -567,7 +567,7 @@ set `xmltok-dtd'. Returns the position of the end of the token."
                                    (list (cdr name))))
                                rng-complete-target-names)))
           'string<))))
-       
+
 (defun rng-get-preferred-unused-prefix (ns)
   (let ((ns-prefix (assoc (symbol-name ns) rng-preferred-prefix-alist))
        iter prefix)
@@ -591,5 +591,4 @@ set `xmltok-dtd'. Returns the position of the end of the token."
 
 (provide 'rng-nxml)
 
-;; arch-tag: bec0d6ed-6be1-4540-9c2c-6f56e8e55d8b
 ;;; rng-nxml.el ends here