branch: elpa/subed
commit ecbfd7f71dc580168219957b30187a24d23fba99
Author: Random User <rnd...@posteo.de>
Commit: Random User <rnd...@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."
