debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-21 18:38: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)
(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")))

2
emacs/notmuch-lib.el
View 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))