From mboxrd@z Thu Jan 1 00:00:00 1970 From: David Maus Subject: [PATCH 14/16] Always percent escape the percent sign Date: Sun, 13 Feb 2011 13:01:16 +0100 Message-ID: <1297598478-9925-15-git-send-email-dmaus@ictsoc.de> References: <87d3mwvqwq.fsf@gnu.org> Return-path: Received: from [140.186.70.92] (port=57643 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Poaei-00043x-0a for emacs-orgmode@gnu.org; Sun, 13 Feb 2011 07:02:21 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Poaeg-0007HC-TD for emacs-orgmode@gnu.org; Sun, 13 Feb 2011 07:02:20 -0500 Received: from mail.app1.xlhost.de ([213.202.242.114]:48956 helo=mysql1.xlhost.de) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Poaeg-0007GP-GZ for emacs-orgmode@gnu.org; Sun, 13 Feb 2011 07:02:18 -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 * lisp/org.el (org-link-escape, org-link-escape-chars-browser) (org-link-escape-chars): Always percent escape the percent sign. --- lisp/org.el | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 8fcb9c4..1415eb1 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -8565,14 +8565,14 @@ according to FMT (default from `org-email-link-description-format')." "]")) (defconst org-link-escape-chars - '(?\ ?\[ ?\] ?\; ?\= ?\+ ?\%) + '(?\ ?\[ ?\] ?\; ?\= ?\+) "List of characters that should be escaped in link. This is the list that is used for internal purposes.") (defvar org-url-encoding-use-url-hexify nil) (defconst org-link-escape-chars-browser - '(?\ ?\%) + '(?\ ) "List of escapes for characters that are problematic in links. This is the list that is used before handing over to the browser.") @@ -8595,7 +8595,7 @@ If optional argument MERGE is set, merge TABLE into (mapconcat (lambda (char) (if (or (member char table) - (< char 32) (> char 126)) + (< char 32) (= char 37) (> char 126)) (mapconcat (lambda (sequence-element) (format "%%%.2X" sequence-element)) (encode-coding-char char 'utf-8) "") -- 1.7.2.3