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-ascii.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-ascii.el')
| -rw-r--r-- | lisp/org/ox-ascii.el | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/lisp/org/ox-ascii.el b/lisp/org/ox-ascii.el index 38b2a5772c1..76a1a71fabe 100644 --- a/lisp/org/ox-ascii.el +++ b/lisp/org/ox-ascii.el @@ -948,12 +948,18 @@ channel." (when description (let ((dest (if (equal type "fuzzy") (org-export-resolve-fuzzy-link link info) - (org-export-resolve-id-link link info)))) - (concat - (org-ascii--fill-string - (format "[%s] %s" anchor (org-ascii--describe-datum dest info)) - width info) - "\n\n")))) + ;; Ignore broken links. On broken link, + ;; `org-export-resolve-id-link' will throw an + ;; error and we will return nil. + (condition-case nil + (org-export-resolve-id-link link info) + (org-link-broken nil))))) + (when dest + (concat + (org-ascii--fill-string + (format "[%s] %s" anchor (org-ascii--describe-datum dest info)) + width info) + "\n\n"))))) ;; Do not add a link that cannot be resolved and doesn't have ;; any description: destination is already visible in the ;; paragraph. |