diff options
author | Sebastian Spaeth <Sebastian@SSpaeth.de> | 2010-04-30 12:33:57 +0200 |
---|---|---|
committer | Carl Worth <cworth@cworth.org> | 2010-06-03 18:17:03 -0700 |
commit | 5bc4ff4e1d31ddd45ac7e2638109c5e502c71836 (patch) | |
tree | 37e11ff939697e2852fdf8ee15f8263e6a352da6 /emacs/notmuch-hello.el | |
parent | a54cecfc8e8fb501d783806b1b603c7b283e00a1 (diff) |
emacs: Remove notmuch-hello-roundup function
as it does the same as (ceiling number divisor) which is already provided in elisp.
Diffstat (limited to 'emacs/notmuch-hello.el')
-rw-r--r-- | emacs/notmuch-hello.el | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el index 79e3d5ff..5072669b 100644 --- a/emacs/notmuch-hello.el +++ b/emacs/notmuch-hello.el @@ -139,11 +139,6 @@ So: maximize (length (car elem))) 0)) -(defun notmuch-hello-roundup (dividend divisor) - "Return the rounded up value of dividing `dividend' by `divisor'." - (+ (/ dividend divisor) - (if (> (% dividend divisor) 0) 1 0))) - (defun notmuch-hello-reflect-generate-row (ncols nrows row list) (let ((len (length list))) (loop for col from 0 to (- ncols 1) @@ -159,7 +154,7 @@ So: "Reflect a `ncols' wide matrix represented by `list' along the diagonal." ;; Not very lispy... - (let ((nrows (notmuch-hello-roundup (length list) ncols))) + (let ((nrows (ceiling (length list) ncols))) (loop for row from 0 to (- nrows 1) append (notmuch-hello-reflect-generate-row ncols nrows row list)))) |