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

[Juanma Barranquero]

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

Index: nxml/nxml-ns.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/nxml/nxml-ns.el,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- nxml/nxml-ns.el     27 Jun 2008 07:34:49 -0000      1.6
+++ nxml/nxml-ns.el     3 Jul 2008 12:25:21 -0000       1.7
@@ -29,22 +29,22 @@
 (require 'nxml-util)
 
 (defvar nxml-ns-state nil
-  "Contains the state of namespace processing.  The state
-is never modified destructively and so can be saved and restored
-without copying.
-
-The value is a stack represented by a list. The list has length N + 1
-where N is the number of open elements.  Each member of the list
-represents the bindings in effect for a particular element.  Each
-member is itself a list whose car is the default namespace
+  "Contains the state of namespace processing.
+The state is never modified destructively and so can be saved and
+restored without copying.
+
+The value is a stack represented by a list.  The list has length
+N + 1 where N is the number of open elements.  Each member of the
+list represents the bindings in effect for a particular element.
+Each member is itself a list whose car is the default namespace
 \(a symbol or nil) and whose cdr is an alist of (PREFIX . NS) pairs
 where PREFIX is a string (never nil) and NS is the namespace URI
 symbol.")
 
 (defconst nxml-ns-initial-state
   (list (list nil (cons "xml" nxml-xml-namespace-uri)))
-  "A list to be used as the initial value of nxml-ns-state.  This
-represents the state with no open elements and with the default
+  "A list to be used as the initial value of `nxml-ns-state'.
+This represents the state with no open elements and with the default
 namespace bindings (no default namespace and only the xml prefix bound).")
 
 (defsubst nxml-ns-state () nxml-ns-state)
@@ -66,25 +66,25 @@
   (setq nxml-ns-state nxml-ns-initial-state))
 
 (defun nxml-ns-push-state ()
-  "Change the state by starting a new element. Namespace declarations
-are inherited from the parent state."
+  "Change the state by starting a new element.
+Namespace declarations are inherited from the parent state."
   (setq nxml-ns-state (cons (car nxml-ns-state) nxml-ns-state)))
 
 (defun nxml-ns-pop-state ()
-  "Change the state by ending an element.  The behavior is undefined
-if there is no open element."
+  "Change the state by ending an element.
+The behavior is undefined if there is no open element."
   (setq nxml-ns-state (cdr nxml-ns-state)))
 
 (defun nxml-ns-get-prefix (prefix)
-  "Return the symbol for namespace bound to PREFIX, or nil if PREFIX
-is unbound. PREFIX is a string, never nil."
+  "Return the symbol for namespace bound to PREFIX.
+Return nil if PREFIX is unbound.  PREFIX is a string, never nil."
   (let ((binding (assoc prefix (cdar nxml-ns-state))))
     (and binding (cdr binding))))
 
 (defun nxml-ns-set-prefix (prefix ns)
-  "Change the binding of PREFIX. PREFIX is a string (never nil).  NS
-is a symbol (never nil). The change will be in effect until the end of
-the current element."
+  "Change the binding of PREFIX.
+PREFIX is a string (never nil).  NS is a symbol (never nil).
+The change will be in effect until the end of the current element."
   (setq nxml-ns-state
        (let ((bindings (car nxml-ns-state)))
          (cons (cons (car bindings)
@@ -92,13 +92,13 @@
                (cdr nxml-ns-state)))))
 
 (defun nxml-ns-get-default ()
-  "Return the current default namespace as a symbol, or nil
-if there is no default namespace."
+  "Return the current default namespace as a symbol.
+Return nil if there is no default namespace."
   (caar nxml-ns-state))
 
 (defun nxml-ns-set-default (ns)
-  "Changes the current default namespace.  The change
-will be in effect until the end of the current element.
+  "Changes the current default namespace.
+The change will be in effect until the end of the current element.
 NS is a symbol or nil."
   (setq nxml-ns-state
        (cons (cons ns (cdar nxml-ns-state))