emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[PATCH] xml-escape-region


From: Daniel Colascione
Subject: [PATCH] xml-escape-region
Date: Wed, 7 Oct 2009 14:56:31 -0400
User-agent: KMail/1.12.1 (Linux/2.6.30.5-43.fc11.i586; KDE/4.3.1; i686; ; )

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."





reply via email to

[Prev in Thread] Current Thread [Next in Thread]