mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

ol: Fix opening file link with a starred search option 

* lisp/ol.el (org-link-open-as-file): Fix logic so initial regexp is
matched against the file-name only, not the search option.
This commit is contained in:
Nicolas Goaziou 2020-02-26 16:27:51 +01:00
parent 1a84a8b611
commit 7707f898a1
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/ol.el
View File

@ -1269,14 +1269,14 @@ search options, separated from the file name with \"::\".
This function is meant to be used as a possible tool for
`:follow' property in `org-link-parameters'."
(if (string-match "[*?{]" (file-name-nondirectory path))
(dired path)
(let* ((option (and (string-match "::\\(.*\\)\\'" path)
(match-string 1 path)))
(path (if (not option) path
(substring path 0 (match-beginning 0)))))
(let* ((option (and (string-match "::\\(.*\\)\\'" path)
(match-string 1 path)))
(file-name (if (not option) path
(substring path 0 (match-beginning 0)))))
(if (string-match "[*?{]" (file-name-nondirectory file-name))
(dired file-name)
(apply #'org-open-file
path
file-name
arg
(cond ((not option) nil)
((string-match-p "\\`[0-9]+\\'" option)