From 4f2fccefc54b03fc68ba6efa833464d3045211b9 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Fri, 15 Feb 2013 18:30:14 +0100 Subject: [PATCH] ox: Small refactoring * lisp/ox.el (org-export-resolve-fuzzy-link): Refactor. --- lisp/ox.el | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/lisp/ox.el b/lisp/ox.el index 93e3f55a2..d6fdc0fc7 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.