Browse Source

ox: Small refactoring

* lisp/ox.el (org-export-resolve-fuzzy-link): Refactor.
Nicolas Goaziou 5 years ago
parent
commit
4f2fccefc5
1 changed files with 1 additions and 4 deletions
  1. 1 4
      lisp/ox.el

+ 1 - 4
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.