# HG changeset patch
# User Mark A. Hershberger <mah@everybody.org>
# Date 1197948550 0
# Node ID 3b14ea2b1d8aaf34fb9a893e89fe0fd4f49bb0bf
# Parent  e8a485c87523a5b5f880a6b53aa1e8a0b1074714
Forgot docstring on xml-escape-string

diff -r e8a485c87523 -r 3b14ea2b1d8a lisp/xml.el
--- a/lisp/xml.el	Tue Dec 18 03:22:05 2007 +0000
+++ b/lisp/xml.el	Tue Dec 18 03:29:10 2007 +0000
@@ -845,6 +845,8 @@
 (defalias 'xml-print 'xml-debug-print)
 
 (defun xml-escape-string (string)
+  "Return the string with entity substitutions made from
+xml-entity-alist."
   (mapconcat (lambda (byte)
                (let ((char (char-to-string byte)))
                  (if (rassoc char xml-entity-alist)