equal
deleted
inserted
replaced
785 (mapcar |
785 (mapcar |
786 (lambda (x) |
786 (lambda (x) |
787 (concat (unibyte-string (string-to-number (substring x 0 2) 16)) (substring x 2))) |
787 (concat (unibyte-string (string-to-number (substring x 0 2) 16)) (substring x 2))) |
788 (cdr s)) |
788 (cdr s)) |
789 )) 'utf-8)) |
789 )) 'utf-8)) |
|
790 |
|
791 (defun my-percent-decode-region (arg beg end) |
|
792 "Convert percent encoded string to native." |
|
793 (interactive "P\nr") |
|
794 (let ( (result (my-percent-decode (buffer-substring-no-properties beg end))) ) |
|
795 (if (not arg) |
|
796 (message result) |
|
797 (delete-region beg end) |
|
798 (insert result)) |
|
799 ) ) |
790 |
800 |
791 ;;; ---------------------------------------------------------------- |
801 ;;; ---------------------------------------------------------------- |
792 (message "browser") |
802 (message "browser") |
793 |
803 |
794 (cond |
804 (cond |