[nongnu] elpa/tuareg e5d7920092 2/2: Merge pull request #304 from mattiase/unused-retval-warning

[ELPA Syncer]

branch: elpa/tuareg
commit e5d792009237c952c44cd9c59873dee9719f1280
Merge: 34090741ee 3367a31e75
Author: monnier <monnier@iro.umontreal.ca>
Commit: GitHub <noreply@github.com>

    Merge pull request #304 from mattiase/unused-retval-warning
    
    Avoid unused return value warning in Emacs 30
---
 tuareg.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/tuareg.el b/tuareg.el
index 0c5a2e30dd..cc61f81354 100644
--- a/tuareg.el
+++ b/tuareg.el
@@ -722,8 +722,12 @@ delimiting the region of interest. "
                       ,@body))
                 body)))
         (push re regexps)
-        (push `((match-beginning ,group-number) . ,clause-body)
-              clauses)
+        ;; We can just omit empty clauses since the conditions are
+        ;; mutually exclusive by construction (and the value of the
+        ;; clause bodies are ignored).
+        (when body
+          (push `((match-beginning ,group-number) . ,clause-body)
+                clauses))
         (setq group-number (+ group-number 1 re-ngroups))))
     (let ((combined-re (mapconcat (lambda (re) (concat "\\(" re "\\)"))
                                   (nreverse regexps) "\\|"))