From mboxrd@z Thu Jan 1 00:00:00 1970 From: David Maus Subject: [PATCH 09/16] Remove obsolete argument in call to org-link-unescape Date: Sun, 13 Feb 2011 13:01:11 +0100 Message-ID: <1297598478-9925-10-git-send-email-dmaus@ictsoc.de> References: <87d3mwvqwq.fsf@gnu.org> Return-path: Received: from [140.186.70.92] (port=57296 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PoaeU-0003uH-VU for emacs-orgmode@gnu.org; Sun, 13 Feb 2011 07:02:08 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1PoaeT-00078A-KF for emacs-orgmode@gnu.org; Sun, 13 Feb 2011 07:02:06 -0500 Received: from mail.app1.xlhost.de ([213.202.242.114]:48929 helo=mysql1.xlhost.de) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1PoaeT-00077U-2r for emacs-orgmode@gnu.org; Sun, 13 Feb 2011 07:02:05 -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-mobile.el (org-mobile-locate-entry): Remove obsolete argument in call to org-link-unescape. `org-link-unescape' always unescapes all percent escaped sequences. --- lisp/org-mobile.el | 7 +++---- 1 files changed, 3 insertions(+), 4 deletions(-) diff --git a/lisp/org-mobile.el b/lisp/org-mobile.el index a278fb1..6616876 100644 --- a/lisp/org-mobile.el +++ b/lisp/org-mobile.el @@ -969,11 +969,10 @@ is currently a noop.") (if (not (string-match "\\`olp:\\(.*?\\):\\(.*\\)$" link)) nil (let ((file (match-string 1 link)) - (path (match-string 2 link)) - (table '((?: . "%3a") (?\[ . "%5b") (?\] . "%5d") (?/ . "%2f")))) - (setq file (org-link-unescape file table)) + (path (match-string 2 link))) + (setq file (org-link-unescape file)) (setq file (expand-file-name file org-directory)) - (setq path (mapcar (lambda (x) (org-link-unescape x table)) + (setq path (mapcar 'org-link-unescape (org-split-string path "/"))) (org-find-olp (cons file path)))))) -- 1.7.2.3