.emacs-my
changeset 717 b958f182d0d4
parent 716 a3f42d9dd281
child 718 19ab21ec7640
--- 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")