tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

ox: Small refactoring 

* lisp/ox.el (org-export-resolve-fuzzy-link): Refactor.
This commit is contained in:
Nicolas Goaziou 2013-02-15 18:30:14 +01:00
parent 78a652716e
commit 4f2fccefc5
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ox.el
View File

@ -3715,10 +3715,7 @@ significant."
(when foundp (throw 'exit foundp))))) (when foundp (throw 'exit foundp)))))
(org-export-get-genealogy link)) nil) (org-export-get-genealogy link)) nil)
;; No match with a common ancestor: try full parse-tree. ;; No match with a common ancestor: try full parse-tree.
(funcall find-headline (funcall find-headline path (plist-get info :parse-tree))))))))
(if (not match-title-p) path
(cons (substring (car path) 1) (cdr path)))
(plist-get info :parse-tree))))))))
(defun org-export-resolve-id-link (link info) (defun org-export-resolve-id-link (link info)
"Return headline referenced as LINK destination. "Return headline referenced as LINK destination.