ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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.
This commit is contained in:
David Maus 2010-11-21 11:51:31 +01:00
parent 17f3548e78
commit 98bf28c52f
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/org-mobile.el
View File

@ -969,11 +969,10 @@ is currently a noop.")
(if (not (string-match "\\`olp:\\(.*?\\):\\(.*\\)$" link)) (if (not (string-match "\\`olp:\\(.*?\\):\\(.*\\)$" link))
nil nil
(let ((file (match-string 1 link)) (let ((file (match-string 1 link))
(path (match-string 2 link)) (path (match-string 2 link)))
(table '((?: . "%3a") (?\[ . "%5b") (?\] . "%5d") (?/ . "%2f")))) (setq file (org-link-unescape file))
(setq file (org-link-unescape file table))
(setq file (expand-file-name file org-directory)) (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-split-string path "/")))
(org-find-olp (cons file path)))))) (org-find-olp (cons file path))))))