diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1d13ebc74..13f707948 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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 diff --git a/lisp/org.el b/lisp/org.el index c89c5acb9..68db7780c 100644 --- a/lisp/org.el +++ b/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)