mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-24 03:19:16 +00:00
Code Releases Activity

New unicode aware percent encoding algorithm

Browse source 
* org.el (org-link-escape): New unicode aware percent encoding
algorithm.
This commit is contained in:
David Maus 2010-11-21 10:38:27 +01:00
parent 196a9d7b2b
commit 0c4bb0e406
1 changed files with 8 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
lisp/org.el
View file

@ -8636,17 +8636,14 @@ This is the list that is used before handing over to the browser.")
(if (and org-url-encoding-use-url-hexify (not table))
(url-hexify-string text)
(setq table (or table org-link-escape-chars))
(when text
(let ((re (mapconcat (lambda (x) (regexp-quote
(char-to-string (car x))))
table "\\|")))
(while (string-match re text)
(setq text
(replace-match
(cdr (assoc (string-to-char (match-string 0 text))
table))
t t text)))
text))))
(mapconcat
(lambda (char)
(if (or (assoc char table)
(< char 32) (> char 126))
(mapconcat (lambda (sequence)
(format "%%%.2X" sequence))
(encode-coding-char char 'utf-8) "")
(char-to-string char))) text "")))
(defun org-link-unescape (text &optional table)
"Reverse the action of `org-link-escape'."