debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-22 02:48:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: Use cl-incf where appropriate

Browse source 
It's shorter.  That's it pretty much.
This commit is contained in:
Jonas Bernoulli 2020-08-08 13:50:03 +02:00 committed by David Bremner
parent 42781f1821
commit 9946380e47
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
emacs/notmuch-hello.el
View file

@ -609,7 +609,7 @@ with `notmuch-hello-query-counts'."
name) name)
(setq column-indent (setq column-indent
(1+ (max 0 (- column-width (length name))))))) (1+ (max 0 (- column-width (length name)))))))
(setq count (1+ count)) (cl-incf count)
(when (eq (% count tags-per-line) 0) (when (eq (% count tags-per-line) 0)
(setq column-indent 0) (setq column-indent 0)
(widget-insert "\n"))) (widget-insert "\n")))

2
emacs/notmuch-lib.el
View file

@ -413,7 +413,7 @@ of its command symbol."
(i 0)) (i 0))
(while (< i (length prefix)) (while (< i (length prefix))
(aset prefix i (aref key i)) (aset prefix i (aref key i))
(setq i (1+ i))) (cl-incf i))
(let* ((subkeymap (key-binding prefix)) (let* ((subkeymap (key-binding prefix))
(ua-keys (where-is-internal 'universal-argument nil t)) (ua-keys (where-is-internal 'universal-argument nil t))
(prefix-string (notmuch-prefix-key-description prefix)) (prefix-string (notmuch-prefix-key-description prefix))