master 5b9a4b88913: ; * lisp/vc/vc-dir.el (vc-dir-refresh): Use if-let*.

branch: master
commit 5b9a4b889139c9a1aa6c11a0f6196415f3796d76
Author: Sean Whitton <[email protected]>
Commit: Sean Whitton <[email protected]>

    ; * lisp/vc/vc-dir.el (vc-dir-refresh): Use if-let*.
---
 lisp/vc/vc-dir.el | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

diff --git a/lisp/vc/vc-dir.el b/lisp/vc/vc-dir.el
index b019f46d1f8..a9e6ce7daa2 100644
--- a/lisp/vc/vc-dir.el
+++ b/lisp/vc/vc-dir.el
@@ -1793,14 +1793,13 @@ Throw an error if another update process is in progress."
              (with-current-buffer buffer
                (vc-dir-update entries buffer)
                (unless more-to-come
-                 (let ((remaining
-                        (ewoc-collect vc-ewoc
-                                      'vc-dir-fileinfo->needs-update)))
-                   (if remaining
-                       (vc-dir-refresh-files (mapcar #'vc-dir-fileinfo->name
-                                                     remaining))
-                     (setq mode-line-process nil)
-                     (run-hooks 'vc-dir-refresh-hook))))))))))))
+                 (if-let* ((remaining
+                            (ewoc-collect vc-ewoc
+                                          'vc-dir-fileinfo->needs-update)))
+                     (vc-dir-refresh-files (mapcar #'vc-dir-fileinfo->name
+                                                   remaining))
+                   (setq mode-line-process nil)
+                   (run-hooks 'vc-dir-refresh-hook)))))))))))
 
 (defun vc-dir--refresh-headers (directory)
   "Refresh the headers for any VC-Dir buffers within DIRECTORY."