diff options
| author | David Maus <dmaus@ictsoc.de> | 2010-11-21 11:51:31 +0100 |
|---|---|---|
| committer | David Maus <dmaus@ictsoc.de> | 2011-02-17 19:26:48 +0100 |
| commit | 98bf28c52fb83764a2bc91de12ca6929fdb12f3d (patch) | |
| tree | 2f6d9ef063f2779637c35f725895641a09c22329 | |
| parent | 17f3548e78d23aca8ecef251c07daa40604468b7 (diff) | |
| download | org-mode-98bf28c52fb83764a2bc91de12ca6929fdb12f3d.tar.gz | |
Remove obsolete argument in call to org-link-unescape
* 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.
| -rw-r--r-- | 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 4b16e2b..3b9f45d 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)))))) |