emacs-elpa-diffs
[Top][All Lists]
Advanced

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

[nongnu] elpa/subed 62d5d3d 038/389: Use (unless ...) instead of (when (


From: ELPA Syncer
Subject: [nongnu] elpa/subed 62d5d3d 038/389: Use (unless ...) instead of (when (not ...))
Date: Fri, 3 Dec 2021 10:59:52 -0500 (EST)

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

    Use (unless ...) instead of (when (not ...))
---
 subed/subed-srt.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/subed/subed-srt.el b/subed/subed-srt.el
index b04363d..aeb79e1 100644
--- a/subed/subed-srt.el
+++ b/subed/subed-srt.el
@@ -213,7 +213,7 @@ Return point or nil if point unless point did not change."
       (let ((regex (concat "\\(" subed-srt--regexp-separator 
"[0-9]+\n\\|\\([[:blank:]]*\n*\\)\\'\\)")))
         (when (re-search-forward regex nil t)
           (goto-char (match-beginning 0))))
-      (when (not (= (point) orig-point))
+      (unless (= (point) orig-point)
         (point)))))
 
 (defun subed-srt-forward-subtitle-id ()
@@ -233,7 +233,7 @@ first subtitle)."
   (when (subed-srt-move-to-subtitle-id)
     (let ((orig-point (point)))
       (forward-line -1)
-      (when (not (= (point) orig-point))
+      (unless (= (point) orig-point)
         (subed-srt-move-to-subtitle-id)))))
 
 (defun subed-srt-forward-subtitle-text ()



reply via email to

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