X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/ffe832ea680b4820f5ff399191f7f2d41350ee2e..0d9f702fd085bc8ad560a3e1f08d5e93054a5d33:/lisp/nxml/rng-util.el

diff --git a/lisp/nxml/rng-util.el b/lisp/nxml/rng-util.el
index 545ad425fd..cca6f28f22 100644
--- a/lisp/nxml/rng-util.el
+++ b/lisp/nxml/rng-util.el
@@ -1,16 +1,16 @@
 ;;; rng-util.el --- utility functions for RELAX NG library
 
-;; Copyright (C) 2003, 2007, 2008 Free Software Foundation, Inc.
+;; Copyright (C) 2003, 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
 
 ;; Author: James Clark
 ;; Keywords: XML, RelaxNG
 
 ;; This file is part of GNU Emacs.
 
-;; GNU Emacs is free software; you can redistribute it and/or modify
+;; GNU Emacs is free software: you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
@@ -18,9 +18,7 @@
 ;; GNU General Public License for more details.
 
 ;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-;; Boston, MA 02110-1301, USA.
+;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
 
 ;;; Commentary:
 
@@ -39,8 +37,7 @@
 (defconst rng-builtin-datatypes-uri (rng-make-datatypes-uri ""))
 
 (defun rng-uniquify-eq (list)
-  "Destructively remove any element from LIST that is eq to
-its predecessor."
+  "Destructively remove `eq' duplicates from LIST."
   (and list
        (let ((head list))
 	 (while (cdr head)
@@ -50,8 +47,7 @@ its predecessor."
 	 list)))
 
 (defun rng-uniquify-equal (list)
-  "Destructively remove any element from LIST that is equal to
-its predecessor."
+  "Destructively remove `equal' duplicates from LIST."
   (and list
        (let ((head list))
 	 (while (cdr head)
@@ -63,7 +59,7 @@ its predecessor."
 (defun rng-blank-p (str) (string-match "\\`[ \t\n\r]*\\'" str))
 
 (defun rng-substq (new old list)
-  "Replace first member of LIST (if any) that is eq to OLD by NEW.
+  "Replace first member of LIST (if any) that is `eq' to OLD by NEW.
 LIST is not modified."
   (cond ((null list) nil)
 	((eq (car list) old)
@@ -92,7 +88,7 @@ Replaces the text between START and point with a string chosen using a
 completion table and, when needed, input read from the user with the
 minibuffer.
 Returns the new string if either a complete and unique completion was
-determined automatically or input was read from the user. Otherwise,
+determined automatically or input was read from the user.  Otherwise,
 returns nil.
 TABLE is an alist, a symbol bound to a function or an obarray as with
 the function `completing-read'.
@@ -171,5 +167,4 @@ HIST, if non-nil, specifies a history list as with `completing-read'."
 
 (provide 'rng-util)
 
-;; arch-tag: 2dc233e0-5e7a-488f-bfc4-5909512dbaf0
 ;;; rng-util.el ends here