diff options
| author | Mark A. Hershberger | 2007-12-18 03:29:10 +0000 |
|---|---|---|
| committer | Mark A. Hershberger | 2007-12-18 03:29:10 +0000 |
| commit | a1884c78c4f672e78d82e91f7b5146ce04c16d93 (patch) | |
| tree | 335666ceebf6cd58ea64e10c49d1536227eb935f | |
| parent | 7731c9f4012b43ee393417ae8cd541c5d89b172b (diff) | |
| download | emacs-a1884c78c4f672e78d82e91f7b5146ce04c16d93.tar.gz emacs-a1884c78c4f672e78d82e91f7b5146ce04c16d93.zip | |
Forgot docstring on xml-escape-string
| -rw-r--r-- | lisp/xml.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/xml.el b/lisp/xml.el index 20c582f06e8..62a95461446 100644 --- a/lisp/xml.el +++ b/lisp/xml.el | |||
| @@ -845,6 +845,8 @@ The first line is indented with the optional INDENT-STRING." | |||
| 845 | (defalias 'xml-print 'xml-debug-print) | 845 | (defalias 'xml-print 'xml-debug-print) |
| 846 | 846 | ||
| 847 | (defun xml-escape-string (string) | 847 | (defun xml-escape-string (string) |
| 848 | "Return the string with entity substitutions made from | ||
| 849 | xml-entity-alist." | ||
| 848 | (mapconcat (lambda (byte) | 850 | (mapconcat (lambda (byte) |
| 849 | (let ((char (char-to-string byte))) | 851 | (let ((char (char-to-string byte))) |
| 850 | (if (rassoc char xml-entity-alist) | 852 | (if (rassoc char xml-entity-alist) |