emacs: Use cl-incf where appropriate
authorJonas Bernoulli <jonas@bernoul.li>
Sat, 8 Aug 2020 11:50:03 +0000 (13:50 +0200)
committerDavid Bremner <david@tethera.net>
Mon, 10 Aug 2020 00:15:27 +0000 (21:15 -0300)
It's shorter.  That's it pretty much.

emacs/notmuch-hello.el
emacs/notmuch-lib.el

index 876d8ef17a668a80de3363d3d13a4cef3c7c866a..c127bba984a04b92102a0bfb4f485dd263484778 100644 (file)
@@ -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")))
index 11f6858ed65a68e4883f61dfb53130d53035dc79..91c9478186590b1e903c4ad626aea78143e3abc1 100644 (file)
@@ -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))