ox: Small refactoring

* lisp/ox.el (org-export-resolve-fuzzy-link): Refactor.

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.