From 0c4bb0e40647ed18d41818f8ebd442cf50d47c76 Mon Sep 17 00:00:00 2001 From: David Maus Date: Sun, 21 Nov 2010 10:38:27 +0100 Subject: [PATCH] New unicode aware percent encoding algorithm * org.el (org-link-escape): New unicode aware percent encoding algorithm. --- lisp/org.el | 19 ++++++++----------- 1 file changed, 8 insertions(+), 11 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 82a0986fe..8737900c5 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -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'."