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

[Juanma Barranquero]

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

Index: nxml/rng-match.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/nxml/rng-match.el,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -b -r1.5 -r1.6
--- nxml/rng-match.el   6 May 2008 04:25:57 -0000       1.5
+++ nxml/rng-match.el   3 Jul 2008 12:25:22 -0000       1.6
@@ -43,7 +43,7 @@
 
 (defvar rng-being-compiled nil
   "Contains a list of ref patterns currently being compiled.
-Used to detect illegal recursive references.")
+Used to detect invalid recursive references.")
 
 (defvar rng-ipattern-table nil)
 
@@ -118,7 +118,7 @@
 memo-map is represented by nil. A large memo-map is represented by a
 list containing just a hash-table.  A small memo map is represented by
 a list whose cdr is an alist and whose car is the number of entries in
-the alist. The complete memo-map can be passed to assoc without
+the alist.  The complete memo-map can be passed to `assoc' without
 problems: assoc ignores any members that are not cons cells.  There is
 therefore minimal overhead in successful lookups on small lists
 \(which is the most common case)."
@@ -293,7 +293,7 @@
                            nil)))))
 
 (defun rng-intern-group (ipatterns)
-  "Return a ipattern for the list of group members in IPATTERNS."
+  "Return an ipattern for the list of group members in IPATTERNS."
   (or (rng-intern-group-shortcut ipatterns)
       (let* ((tem (rng-normalize-group-list ipatterns))
             (normalized (cdr tem)))
@@ -308,8 +308,8 @@
                                    (car tem))))))))
 
 (defun rng-intern-group-shortcut (ipatterns)
-  "Try to shortcut interning a group list.  If successful, return the
-interned pattern.  Otherwise return nil."
+  "Try to shortcut interning a group list.
+If successful, return the interned pattern.  Otherwise return nil."
   (while (and ipatterns
              (eq (car ipatterns) rng-empty-ipattern))
     (setq ipatterns (cdr ipatterns)))
@@ -432,8 +432,8 @@
                          nullable))))
                                            
 (defun rng-intern-choice-shortcut (ipatterns)
-  "Try to shortcut interning a choice list.  If successful, return the
-interned pattern.  Otherwise return nil."
+  "Try to shortcut interning a choice list.
+If successful, return the interned pattern.  Otherwise return nil."
   (while (and ipatterns
              (eq (car ipatterns)
                  rng-not-allowed-ipattern))
@@ -450,10 +450,10 @@
     rng-not-allowed-ipattern))
 
 (defun rng-normalize-choice-list (ipatterns)
-  "Normalize a list of choices, expanding nested choices, removing
-not-allowed members, sorting by index and removing duplicates.  Return
-a pair whose car says whether the list is nullable and whose cdr is
-the normalized list."
+  "Normalize a list of choices.
+Expands nested choices, removes not-allowed members, sorts by index
+and removes duplicates.  Return a pair whose car says whether the
+list is nullable and whose cdr is the normalized list."
   (let ((sorted t)
        (nullable nil)
        (head (cons nil ipatterns)))
@@ -537,9 +537,9 @@
 
 Each possible name should be returned as a (NAMESPACE . LOCAL-NAME)
 pair, where NAMESPACE is a symbol or nil and LOCAL-NAME is a string.
-nil for NAMESPACE matches the absent namespace.  ACCUM is a list of
-names which should be appended to the returned list. The returned list
-may contain duplicates."
+NAMESPACE, if nil, matches the absent namespace.  ACCUM is a list of
+names which should be appended to the returned list.  The returned
+list may contain duplicates."
   (if (consp nc)
       (cons nc accum)
     (when (eq (aref nc 0) 'choice)
@@ -1618,7 +1618,7 @@
 
 (defun rng-match-possible-namespace-uris ()
   "Return a list of all the namespace URIs used in the current schema.
-The absent URI is not included, so the result is always list of symbols."
+The absent URI is not included, so the result is always a list of symbols."
   (rng-map-element-attribute (lambda (pattern accum)
                               (rng-find-name-class-uris (nth 1 pattern)
                                                         accum))