[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/nxml/rng-match.el,v
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/nxml/rng-match.el,v |
Date: |
Thu, 03 Jul 2008 12:25:28 +0000 |
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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/nxml/rng-match.el,v,
Juanma Barranquero <=