diff options
| author |  Carl Worth <cworth@cworth.org> | 2010-10-22 12:03:34 -0700 |
|---|---|---|
| committer | Carl Worth <cworth@cworth.org> | 2010-10-22 12:03:34 -0700 |
| commit | 1a17faf48d548bc5e6dc1d25b4f63204d1b2eea7 (patch) | |
| tree | 1b31c29de202ccae243c6a023fe81c7250f11911 /emacs/notmuch-hello.el | |
| parent | f117d80d9b1ef688aa4815c83b2cc9773f76a995 (diff) | |
emacs: Fix notmuch-hello to not break when given a very narrow window.
Simply ensure that some subtractions never result in a negative
number, (since emacs complains when asked to create a string with a
negative length).
Diffstat (limited to 'emacs/notmuch-hello.el')
| -rw-r--r-- | emacs/notmuch-hello.el | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el index f8ae332c..161d6e30 100644 --- a/emacs/notmuch-hello.el +++ b/emacs/notmuch-hello.el @@ -209,11 +209,12 @@ should be. Returns a cons cell `(tags-per-line width)'." ;; after the name. (+ 9 1 widest))))))) - (cons tags-per-line (/ (- (window-width) notmuch-hello-indent - ;; Count is 9 wide (8 digits plus - ;; space), 1 for the space after the - ;; name. - (* tags-per-line (+ 9 1))) + (cons tags-per-line (/ (max 1 + (- (window-width) notmuch-hello-indent + ;; Count is 9 wide (8 digits plus + ;; space), 1 for the space after the + ;; name. + (* tags-per-line (+ 9 1)))) tags-per-line)))) (defun notmuch-hello-insert-tags (tag-alist widest target) @@ -249,7 +250,9 @@ should be. Returns a cons cell `(tags-per-line width)'." ;; can just insert `(- widest (length name))' spaces - ;; the column separator is included in the button if ;; `(equal widest (length name)'. - (widget-insert (make-string (- widest (length name)) ? )))) + (widget-insert (make-string (max 1 + (- widest (length name))) + ? )))) (setq count (1+ count)) (if (eq (% count tags-per-line) 0) (widget-insert "\n"))) |