diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2022-07-24 16:24:24 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2022-07-24 16:24:24 -0400 |
| commit | ba70d0f77c52d471bceb2ad2cc7bc172db348abb (patch) | |
| tree | a2a638dfaaf4cc61b590f1da7b5490dccbcbe03c /lisp/org/ox-md.el | |
| parent | f7fd7bf477acfc65701065ec70c32dacb17e275a (diff) | |
| download | emacs-ba70d0f77c52d471bceb2ad2cc7bc172db348abb.tar.gz emacs-ba70d0f77c52d471bceb2ad2cc7bc172db348abb.tar.bz2 emacs-ba70d0f77c52d471bceb2ad2cc7bc172db348abb.zip | |
Update to Org 9.5.4-17-g6e991f
Diffstat (limited to 'lisp/org/ox-md.el')
| -rw-r--r-- | lisp/org/ox-md.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/org/ox-md.el b/lisp/org/ox-md.el index ad684d80333..3551e4184e5 100644 --- a/lisp/org/ox-md.el +++ b/lisp/org/ox-md.el @@ -193,11 +193,11 @@ of contents can refer to headlines." ;; A link refers internally to HEADLINE. (org-element-map (plist-get info :parse-tree) 'link (lambda (link) - (eq headline - (pcase (org-element-property :type link) - ((or "custom-id" "id") (org-export-resolve-id-link link info)) - ("fuzzy" (org-export-resolve-fuzzy-link link info)) - (_ nil)))) + (equal headline + ;; Ignore broken links. + (condition-case nil + (org-export-resolve-id-link link info) + (org-link-broken nil)))) info t)))) (defun org-md--headline-title (style level title &optional anchor tags) |