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

Unescape plain link before open 

* org.el (org-open-at-point): Unescape plain link.

This should fix a problem with open plain links reported by
Sebastien Vauban.
This commit is contained in:
David Maus 2011-09-11 16:50:22 +02:00
parent 5a373f649e
commit 4122a51366
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/org.el
View File

@ -9392,7 +9392,8 @@ application the system uses for this file type."
(save-excursion (save-excursion
(when (or (org-in-regexp org-angle-link-re) (when (or (org-in-regexp org-angle-link-re)
(org-in-regexp org-plain-link-re)) (org-in-regexp org-plain-link-re))
(setq type (match-string 1) path (match-string 2)) (setq type (match-string 1)
path (org-link-unescape (match-string 2)))
(throw 'match t))) (throw 'match t)))
(save-excursion (save-excursion
(when (org-in-regexp (org-re "\\(:[[:alnum:]_@#%:]+\\):[ \t]*$")) (when (org-in-regexp (org-re "\\(:[[:alnum:]_@#%:]+\\):[ \t]*$"))
@ -9999,8 +10000,8 @@ If the file does not exist, an error is thrown."
match) match)
(progn (setq in-emacs (or in-emacs line search)) (progn (setq in-emacs (or in-emacs line search))
nil))) ; if we have no match in apps-dlink, nil))) ; if we have no match in apps-dlink,
; always open the file in emacs if line or search ; always open the file in emacs if line or search
; is given (for backwards compatibility) ; is given (for backwards compatibility)
(assoc-default dfile (org-apps-regexp-alist apps a-m-a-p) (assoc-default dfile (org-apps-regexp-alist apps a-m-a-p)
'string-match) 'string-match)
(cdr (assoc ext apps)) (cdr (assoc ext apps))