[elpa] externals/org 80b474db00 2/4: ox-ascii: Fix broken link export for broken fuzzy links

[ELPA Syncer]

branch: externals/org
commit 80b474db0060b540ff4717e34fb1acca06ad62f5
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    ox-ascii: Fix broken link export for broken fuzzy links
    
    * lisp/ox-ascii.el (org-ascii--describe-links): Ignore all kinds of
    broken links, not just broken id links.
    
    Reported-by: Pablo Aguado <aguadopd@hotmail.com>
    Link: 
https://orgmode.org/list/SA1P223MB070291E02E95707C31342244C2102@SA1P223MB0702.NAMP223.PROD.OUTLOOK.COM
---
 lisp/ox-ascii.el | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/lisp/ox-ascii.el b/lisp/ox-ascii.el
index db4356ec61..056d7a4f58 100644
--- a/lisp/ox-ascii.el
+++ b/lisp/ox-ascii.el
@@ -954,14 +954,15 @@ channel."
         ;; Only links with a description need an entry.  Other are
         ;; already handled in `org-ascii-link'.
         (when description
-          (let ((dest (if (equal type "fuzzy")
-                          (org-export-resolve-fuzzy-link link info)
-                         ;; 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)))))
+          (let ((dest
+                  ;; Ignore broken links.  On broken link,
+                  ;; `org-export-resolve-id-link' will throw an
+                  ;; error and we will return nil.
+                 (condition-case nil
+                      (if (equal type "fuzzy")
+                         (org-export-resolve-fuzzy-link link info)
+                        (org-export-resolve-id-link link info))
+                    (org-link-broken nil))))
              (when dest
               (concat
                (org-ascii--fill-string