From: Carl Worth <cworth@cworth.org>
Date: Tue, 27 Apr 2010 03:51:31 +0000 (-0700)
Subject: notmuch-hello: Fix a sign error when computing number of padding spaces.
X-Git-Tag: 0.3~23
X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=commitdiff_plain;h=404c6121e5b255850052eea55d88f65c9c439590

notmuch-hello: Fix a sign error when computing number of padding spaces.

After the previous commit, toggling the visibility of tags could
result in notmuch-hello aborting with:

	Wrong type argument: wholenump, -1

At least, the error only occurred for me when making tags visible. But
that may be because my longest tag name is longer than my longest
saved-search name.
---

diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el
index 5d601acf..3a703879 100644
--- a/emacs/notmuch-hello.el
+++ b/emacs/notmuch-hello.el
@@ -174,7 +174,7 @@ diagonal."
 				:notify #'notmuch-hello-widget-search
 				:notmuch-search-terms (cdr elem)
 				(format "%s " (car elem)))
-		 (insert (make-string (1- (- widest (length (car elem)))) ? )))
+		 (insert (make-string (1+ (- widest (length (car elem)))) ? )))
 	       (setq count (1+ count))
 	       (if (eq (% count tags-per-line) 0)
 		   (widget-insert "\n"))))