From: Sebastian Spaeth <Sebastian@SSpaeth.de>
Date: Fri, 30 Apr 2010 10:33:57 +0000 (+0200)
Subject: emacs: Remove notmuch-hello-roundup function
X-Git-Tag: 0.4~132
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=5bc4ff4e1d31ddd45ac7e2638109c5e502c71836;p=notmuch.git

emacs: Remove notmuch-hello-roundup function

as it does the same as (ceiling number divisor) which is already provided in elisp.
---

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))))