diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-02-15 18:30:14 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-02-15 18:30:14 +0100 |
commit | 4f2fccefc54b03fc68ba6efa833464d3045211b9 (patch) | |
tree | 18a75a3cbac86db6ecb02d04bdd05ffd49105551 | |
parent | 78a652716e996297a8b6004274946c8d99c8bf4a (diff) | |
download | org-mode-4f2fccefc54b03fc68ba6efa833464d3045211b9.tar.gz |
ox: Small refactoring
* lisp/ox.el (org-export-resolve-fuzzy-link): Refactor.
-rw-r--r-- | lisp/ox.el | 5 |
1 files changed, 1 insertions, 4 deletions
@@ -3715,10 +3715,7 @@ significant." (when foundp (throw 'exit foundp))))) (org-export-get-genealogy link)) nil) ;; No match with a common ancestor: try full parse-tree. - (funcall find-headline - (if (not match-title-p) path - (cons (substring (car path) 1) (cdr path))) - (plist-get info :parse-tree)))))))) + (funcall find-headline path (plist-get info :parse-tree)))))))) (defun org-export-resolve-id-link (link info) "Return headline referenced as LINK destination. |