branch: elpa/git-commit
commit b6c928659711b45ea2b684a85380bbde924cd82b
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
Use while-let more
---
lisp/git-commit.el | 4 ++--
lisp/magit-diff.el | 5 ++---
2 files changed, 4 insertions(+), 5 deletions(-)
diff --git a/lisp/git-commit.el b/lisp/git-commit.el
index 4b0ae6dfe8..8c230eda8b 100644
--- a/lisp/git-commit.el
+++ b/lisp/git-commit.el
@@ -1256,8 +1256,8 @@ Added to `font-lock-extend-region-functions'."
(font-lock-ensure)
(with-no-warnings
(font-lock-fontify-buffer))))
- (let (next (pos (point-min)))
- (while (setq next (next-single-property-change pos 'face))
+ (let ((pos (point-min)))
+ (while-let ((next (next-single-property-change pos 'face)))
(put-text-property pos next 'font-lock-face
(get-text-property pos 'face))
(setq pos next))
diff --git a/lisp/magit-diff.el b/lisp/magit-diff.el
index 6fb8c1e95f..e36a38b271 100644
--- a/lisp/magit-diff.el
+++ b/lisp/magit-diff.el
@@ -1363,10 +1363,9 @@ for a revision."
(and (cl-typep section 'magit-file-section)
(equal (oref section value) file)))
(oref (or parent magit-root-section)
children))))
- (let ((hunk nil)
- (hunks (oref diff children)))
+ (let ((hunks (oref diff children)))
(cl-block nil
- (while (setq hunk (pop hunks))
+ (while-let ((hunk (pop hunks)))
(when-let ((range (oref hunk to-range)))
(pcase-let* ((`(,beg ,len) range)
(end (+ beg len)))
