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)))