diff options
author | Jonas Bernoulli <jonas@bernoul.li> | 2020-08-08 13:50:03 +0200 |
---|---|---|
committer | David Bremner <david@tethera.net> | 2020-08-09 21:15:27 -0300 |
commit | 9946380e47ffcffea7fb9793a9fe4944b510110f (patch) | |
tree | c43b705d0512d4ec98f2ca2e15be2e595a0d62f7 | |
parent | 42781f18214a4adf277c4bf52dd191ccf74e1b3b (diff) |
emacs: Use cl-incf where appropriate
It's shorter. That's it pretty much.
-rw-r--r-- | emacs/notmuch-hello.el | 2 | ||||
-rw-r--r-- | emacs/notmuch-lib.el | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el index 876d8ef1..c127bba9 100644 --- a/emacs/notmuch-hello.el +++ b/emacs/notmuch-hello.el @@ -609,7 +609,7 @@ with `notmuch-hello-query-counts'." name) (setq column-indent (1+ (max 0 (- column-width (length name))))))) - (setq count (1+ count)) + (cl-incf count) (when (eq (% count tags-per-line) 0) (setq column-indent 0) (widget-insert "\n"))) diff --git a/emacs/notmuch-lib.el b/emacs/notmuch-lib.el index 11f6858e..91c94781 100644 --- a/emacs/notmuch-lib.el +++ b/emacs/notmuch-lib.el @@ -413,7 +413,7 @@ of its command symbol." (i 0)) (while (< i (length prefix)) (aset prefix i (aref key i)) - (setq i (1+ i))) + (cl-incf i)) (let* ((subkeymap (key-binding prefix)) (ua-keys (where-is-internal 'universal-argument nil t)) (prefix-string (notmuch-prefix-key-description prefix)) |