[Top][All Lists]
[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."
- [PATCH] xml-escape-region,
Daniel Colascione <=