mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-22 12:18:40 +00:00
Revert "Improve file opening when matching links"
This reverts commit 39c91ba24a
.
This commit is contained in:
parent
8258daf439
commit
cd70e85522
|
@ -9,7 +9,6 @@
|
|||
frames.
|
||||
(org-export-latex-default-packages-alist): hyperref must be loaded
|
||||
late.
|
||||
(org-open-file): More care with the new matching for file links.
|
||||
|
||||
2010-04-07 Carsten Dominik <carsten.dominik@gmail.com>
|
||||
|
||||
|
|
18
lisp/org.el
18
lisp/org.el
|
@ -9172,19 +9172,13 @@ If the file does not exist, an error is thrown."
|
|||
(and dirp (cdr (assoc 'directory apps)))
|
||||
;; if we find a match in org-file-apps, store the match
|
||||
;; data for later
|
||||
(let* ((re-list1 (org-apps-regexp-alist apps nil))
|
||||
(re-list2
|
||||
(if a-m-a-p
|
||||
(org-apps-regexp-alist apps a-m-a-p)
|
||||
re-list1))
|
||||
(private-match
|
||||
(assoc-default dlink re-list1 'string-match))
|
||||
(general-match
|
||||
(assoc-default dfile re-list2 'string-match)))
|
||||
(if private-match
|
||||
(let ((match (assoc-default dlink (org-apps-regexp-alist
|
||||
apps a-m-a-p)
|
||||
'string-match)))
|
||||
(if match
|
||||
(progn (setq link-match-data (match-data))
|
||||
private-match)
|
||||
general-match))
|
||||
match)
|
||||
nil))
|
||||
(cdr (assoc ext apps))
|
||||
(cdr (assoc t apps))))))
|
||||
(when (eq cmd 'system)
|
||||
|
|
Loading…
Reference in a new issue