Forgot docstring on xml-escape-string

diff --git a/lisp/xml.el b/lisp/xml.el
index 20c582f06e805ebeee5bbc8c094418440024c7c1..62a954614461fa5cf0818cde8843e5c07b674efb 100644 (file)
--- a/lisp/xml.el
+++ b/lisp/xml.el
@@ -845,6 +845,8 @@ The first line is indented with the optional INDENT-STRING."
 (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)