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

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

[nongnu] elpa/git-commit 2292d92101 2/2: magit-wip.el: Cosmetics


From: ELPA Syncer
Subject: [nongnu] elpa/git-commit 2292d92101 2/2: magit-wip.el: Cosmetics
Date: Sun, 19 Mar 2023 19:01:17 -0400 (EDT)

branch: elpa/git-commit
commit 2292d921019abfe58702582eb9bacda9d843e9c9
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    magit-wip.el: Cosmetics
---
 lisp/magit-wip.el | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/lisp/magit-wip.el b/lisp/magit-wip.el
index 6f9642c996..c6745afcef 100644
--- a/lisp/magit-wip.el
+++ b/lisp/magit-wip.el
@@ -143,10 +143,10 @@ variant `magit-wip-after-save-mode'."
     (remove-hook 'after-save-hook #'magit-wip-commit-buffer-file t)))
 
 (defun magit-wip-after-save-local-mode-turn-on ()
-  (and buffer-file-name
-       (magit-inside-worktree-p t)
-       (magit-file-tracked-p buffer-file-name)
-       (magit-wip-after-save-local-mode)))
+  (when (and buffer-file-name
+             (magit-inside-worktree-p t)
+             (magit-file-tracked-p buffer-file-name))
+    (magit-wip-after-save-local-mode)))
 
 ;;;###autoload
 (define-globalized-minor-mode magit-wip-after-save-mode
@@ -160,11 +160,11 @@ variant `magit-wip-after-save-mode'."
 Also see `magit-wip-after-save-mode' which calls this function
 automatically whenever a buffer visiting a tracked file is saved."
   (interactive (list "wip-save %s after save"))
-  (--when-let (magit-wip-get-ref)
+  (when-let ((ref (magit-wip-get-ref)))
     (magit-with-toplevel
       (let ((file (file-relative-name buffer-file-name)))
         (magit-wip-commit-worktree
-         it (list file)
+         ref (list file)
          (format (or msg "autosave %s after save") file))))))
 
 ;;;###autoload
@@ -268,9 +268,9 @@ commit message."
   (interactive (list nil (if current-prefix-arg
                              (magit-read-string "Wip commit message")
                            "wip-save tracked files")))
-  (--when-let (magit-wip-get-ref)
-    (magit-wip-commit-index it files msg)
-    (magit-wip-commit-worktree it files msg)))
+  (when-let ((ref (magit-wip-get-ref)))
+    (magit-wip-commit-index ref files msg)
+    (magit-wip-commit-worktree ref files msg)))
 
 (defun magit-wip-commit-index (ref files msg)
   (let* ((wipref (magit--wip-index-ref ref))



reply via email to

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