[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

01/01: lint: Improve 'check-texinfo-markup'.

From: Mathieu Lirzin
Subject: 01/01: lint: Improve 'check-texinfo-markup'.
Date: Sat, 26 Sep 2015 13:13:50 +0000

mthl pushed a commit to branch master
in repository guix.

commit 5d8d8f3b0a07edb3bd435830b076749f906537d8
Author: Mathieu Lirzin <address@hidden>
Date:   Fri Sep 25 00:37:36 2015 +0200

    lint: Improve 'check-texinfo-markup'.
    * guix/scripts/lint.scm (check-description-style): Set 'field' parameter
      when emitting a warning in 'check-texinfo-markup'.  Catch any error
      that may occur in during the 'texi->plain-text' conversion.  This is a
      followup to commit 2748ee3.
 guix/scripts/lint.scm |   10 +++++-----
 1 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/guix/scripts/lint.scm b/guix/scripts/lint.scm
index b0427f7..0adb3bf 100644
--- a/guix/scripts/lint.scm
+++ b/guix/scripts/lint.scm
@@ -146,11 +146,11 @@ monad."
   (define (check-texinfo-markup description)
     "Check that DESCRIPTION can be parsed as a Texinfo fragment.  If the
 markup is valid return a plain-text version of DESCRIPTION, otherwise #f."
-    (catch 'parser-error
-      (lambda () (texi->plain-text description))
-      (lambda (keys . args)
-        (emit-warning package (_ "Texinfo markup in description is invalid"))
-        #f)))
+    (unless (false-if-exception (texi->plain-text description))
+      (emit-warning package
+                    (_ "Texinfo markup in description is invalid")
+                    'description)
+      #f))
   (define (check-proper-start description)
     (unless (or (properly-starts-sentence? description)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]