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

[Juanma Barranquero]

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

Index: nxml/rng-cmpct.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/nxml/rng-cmpct.el,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -b -r1.5 -r1.6
--- nxml/rng-cmpct.el   6 May 2008 04:25:56 -0000       1.5
+++ nxml/rng-cmpct.el   3 Jul 2008 12:25:22 -0000       1.6
@@ -245,10 +245,12 @@
 (defconst rng-c-about-combine-slot 1)
 
 (defun rng-c-lookup-create (name grammar)
-  "Return a def object for NAME.  A def object is a pair
-\(ABOUT . REF) where REF is returned by `rng-make-ref'.  ABOUT is a
-two-element vector [OVERRIDE COMBINE].  COMBINE is either nil, choice
-or interleave.  OVERRIDE is either nil, require or t."
+  "Return a def object for NAME.
+A def object is a pair \(ABOUT . REF) where REF is returned by
+`rng-make-ref'.
+ABOUT is a two-element vector [OVERRIDE COMBINE].
+COMBINE is either nil, choice or interleave.
+OVERRIDE is either nil, require or t."
   (let ((def (gethash name grammar)))
     (if def
        def
@@ -615,9 +617,10 @@
       p)))
 
 (defun rng-c-parse-primary ()
-  "Parse a primary expression.  The current token must be the first
-token of the expression.  After parsing the current token should be
-token following the primary expression."
+  "Parse a primary expression.
+The current token must be the first token of the expression.
+After parsing the current token should be the token following
+the primary expression."
   (cond ((rng-c-current-token-keyword-p)
         (let ((parse-function (get (intern rng-c-current-token)
                                    'rng-c-pattern)))
@@ -901,8 +904,8 @@
 ;; XXX don't allow attributes after text
 
 (defun rng-c-parse-annotation-body (&optional allow-text)
-  "Current token is [.  Parse up to matching ]. Current token after
-parse is token following ]."
+  "Current token is [.  Parse up to matching ].
+Current token after parse is token following ]."
   (or (string-equal rng-c-current-token "[")
       (rng-c-error "Expected ["))
   (rng-c-advance)