From mboxrd@z Thu Jan 1 00:00:00 1970 From: David Maus Subject: [PATCH 02/16] New unicode aware percent encoding algorithm Date: Sun, 13 Feb 2011 13:01:04 +0100 Message-ID: <1297598478-9925-3-git-send-email-dmaus@ictsoc.de> References: <87d3mwvqwq.fsf@gnu.org> Return-path: Received: from [140.186.70.92] (port=43698 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PoaeB-0003gH-8C for emacs-orgmode@gnu.org; Sun, 13 Feb 2011 07:01:48 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1PoaeA-0006uV-BX for emacs-orgmode@gnu.org; Sun, 13 Feb 2011 07:01:47 -0500 Received: from mail.app1.xlhost.de ([213.202.242.114]:48888 helo=mysql1.xlhost.de) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Poae9-0006uH-Un for emacs-orgmode@gnu.org; Sun, 13 Feb 2011 07:01:46 -0500 In-Reply-To: <87d3mwvqwq.fsf@gnu.org> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org, bastien.guerry@wikimedia.fr Cc: David Maus * org.el (org-link-escape): New unicode aware percent encoding algorithm. --- lisp/org.el | 19 ++++++++----------- 1 files changed, 8 insertions(+), 11 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 0c46eec..9aeeeda 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -8576,17 +8576,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'." -- 1.7.2.3