[nongnu] elpa/subed ecbfd7f 119/389: Remove useless (progn ...)

[ELPA Syncer]

branch: elpa/subed
commit ecbfd7f71dc580168219957b30187a24d23fba99
Author: Random User <rndusr@posteo.de>
Commit: Random User <rndusr@posteo.de>

    Remove useless (progn ...)
---
 subed/subed.el | 27 +++++++++++++--------------
 1 file changed, 13 insertions(+), 14 deletions(-)

diff --git a/subed/subed.el b/subed/subed.el
index fb831e4..33ca601 100644
--- a/subed/subed.el
+++ b/subed/subed.el
@@ -145,20 +145,19 @@ Before BODY is run, point is placed on the subtitle's ID."
   `(atomic-change-group
      (if (not ,beg)
          ;; Run body on subtitle at point
-         (progn (save-excursion (subed-jump-to-subtitle-id)
-                                ,@body))
-       (progn
-         ;; Run body on multiple subtitles
-         (save-excursion
-           (goto-char ,beg)
-           (subed-jump-to-subtitle-id)
-           (catch 'last-subtitle-reached
-             (while t
-               (when (> (point) (or ,end (point-max)))
-                 (throw 'last-subtitle-reached t))
-               (progn ,@body)
-               (unless (subed-forward-subtitle-id)
-                 (throw 'last-subtitle-reached t)))))))))
+         (save-excursion (subed-jump-to-subtitle-id)
+                         ,@body)
+       ;; Run body on multiple subtitles
+       (save-excursion
+         (goto-char ,beg)
+         (subed-jump-to-subtitle-id)
+         (catch 'last-subtitle-reached
+           (while t
+             (when (> (point) (or ,end (point-max)))
+               (throw 'last-subtitle-reached t))
+             (progn ,@body)
+             (unless (subed-forward-subtitle-id)
+               (throw 'last-subtitle-reached t))))))))
 
 (defun subed--right-pad (string length fillchar)
   "Use FILLCHAR to make STRING LENGTH characters long."