[PATCH] emacs: Remove notmuch-hello-roundup function
Sebastian Spaeth
Sebastian at SSpaeth.de
Fri Apr 30 03:33:57 PDT 2010
as it does the same as (ceiling number divisor) which is already provided in elisp.
---
dme, am I right that this patch is really correct?
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 1358387..8fabbf4 100644
--- a/emacs/notmuch-hello.el
+++ b/emacs/notmuch-hello.el
@@ -113,11 +113,6 @@
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)
@@ -133,7 +128,7 @@
"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))))
--
1.7.0.4
More information about the notmuch
mailing list