# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1317853551 -10800
# Node ID b958f182d0d459a7484adeba9b302a12689621bd
# Parent  a3f42d9dd2813f05c0471f15adab5922aa3a485b
Convert percent encoded string to native.

diff -r a3f42d9dd281 -r b958f182d0d4 .emacs-my
--- a/.emacs-my	Wed Oct 05 02:56:52 2011 +0300
+++ b/.emacs-my	Thu Oct 06 01:25:51 2011 +0300
@@ -788,6 +788,16 @@
        (cdr s))
       )) 'utf-8))
 
+(defun my-percent-decode-region (arg beg end)
+  "Convert percent encoded string to native."
+  (interactive "P\nr")
+  (let ( (result (my-percent-decode (buffer-substring-no-properties beg end))) )
+    (if (not arg)
+        (message result)
+      (delete-region beg end)
+      (insert result))
+    ) )
+
 ;;; ----------------------------------------------------------------
 (message "browser")