[Emacs-diffs] Changes to emacs/lisp/nxml/rng-util.el,v

[Juanma Barranquero]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      08/07/03 12:25:23

Index: nxml/rng-util.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/nxml/rng-util.el,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -b -r1.5 -r1.6
--- nxml/rng-util.el    6 May 2008 04:25:57 -0000       1.5
+++ nxml/rng-util.el    3 Jul 2008 12:25:22 -0000       1.6
@@ -37,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)
@@ -48,8 +47,7 @@
         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)
@@ -61,7 +59,7 @@
 (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)