diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2024-05-06 17:57:46 +0200 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2024-05-06 17:57:46 +0200 |
| commit | b6c928659711b45ea2b684a85380bbde924cd82b (patch) | |
| tree | 99ac184d045819f83c6d4f70b7ee994381b166b6 /lisp/git-commit.el | |
| parent | ea0d30d9a6056064b6d2cb4b4a5a8ca8fd036d2d (diff) | |
Use while-let more
Diffstat (limited to 'lisp/git-commit.el')
| -rw-r--r-- | lisp/git-commit.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/git-commit.el b/lisp/git-commit.el index 4b0ae6d..8c230ed 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)) |