forked from mirrors/org-mode
ox: Small refactoring
* lisp/ox.el (org-export-resolve-fuzzy-link): Refactor.
This commit is contained in:
parent
78a652716e
commit
4f2fccefc5
|
@ -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.
|
||||
|
|
Loading…
Reference in a new issue