summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2013-02-15 18:30:14 +0100
committerNicolas Goaziou <n.goaziou@gmail.com>2013-02-15 18:30:14 +0100
commit4f2fccefc54b03fc68ba6efa833464d3045211b9 (patch)
tree18a75a3cbac86db6ecb02d04bdd05ffd49105551
parent78a652716e996297a8b6004274946c8d99c8bf4a (diff)
downloadorg-mode-4f2fccefc54b03fc68ba6efa833464d3045211b9.tar.gz
ox: Small refactoring
* lisp/ox.el (org-export-resolve-fuzzy-link): Refactor.
-rw-r--r--lisp/ox.el5
1 files changed, 1 insertions, 4 deletions
diff --git a/lisp/ox.el b/lisp/ox.el
index 93e3f55..d6fdc0f 100644
--- a/lisp/ox.el
+++ b/lisp/ox.el
@@ -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.