emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Orgmode] [PATCH 09/16] Remove obsolete argument in call to org-link-une


From: David Maus
Subject: [Orgmode] [PATCH 09/16] Remove obsolete argument in call to org-link-unescape
Date: Sun, 13 Feb 2011 13:01:11 +0100

* 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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]