[PATCH] xml-escape-region

[Daniel Colascione <danc@merrillprint.com>]

Index: xml.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/xml.el,v
retrieving revision 1.64
diff -u -r1.64 xml.el
--- xml.el	5 Jan 2009 03:19:57 -0000	1.64
+++ xml.el	7 Oct 2009 18:56:08 -0000
@@ -852,6 +852,13 @@
              ;; grabbing the string works here.
              string ""))
 
+;;;##autoload
+(defun xml-escape-region (beg end)
+  (interactive "*r")
+  (let ((escaped (xml-escape-string (buffer-substring beg end))))
+    (delete-region beg end)
+    (insert escaped)))
+
 (defun xml-debug-print-internal (xml indent-string)
   "Outputs the XML tree in the current buffer.
 The first line is indented with INDENT-STRING."