diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-02-12 16:04:02 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-02-12 16:04:02 -0700 |
| commit | 5eb322c0a29bcf2ddaa30bfaab577f18bb1fd922 (patch) | |
| tree | 13e3f575b0fa40ce19912b135ef98c823e42980e /lisp/ldg-mode.el | |
| parent | 28659c58c3b0531e0f5fb01b298fcb8a8f63991e (diff) | |
| download | ledger-5eb322c0a29bcf2ddaa30bfaab577f18bb1fd922.tar.gz ledger-5eb322c0a29bcf2ddaa30bfaab577f18bb1fd922.tar.bz2 ledger-5eb322c0a29bcf2ddaa30bfaab577f18bb1fd922.zip | |
Comment and code cleanup
Diffstat (limited to 'lisp/ldg-mode.el')
| -rw-r--r-- | lisp/ldg-mode.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/ldg-mode.el b/lisp/ldg-mode.el index 95b02fdd..df277ee0 100644 --- a/lisp/ldg-mode.el +++ b/lisp/ldg-mode.el @@ -132,8 +132,8 @@ customizable to ease retro-entry.") (< (nth 1 t1) (nth 1 t2))))) (defun ledger-time-subtract (t1 t2) - "Subtract two time values. -Return the difference in the format of a time value." + "Subtract two time values. Return the difference in the format + of a time value." (let ((borrow (< (cadr t1) (cadr t2)))) (list (- (car t1) (car t2) (if borrow 1 0)) (- (+ (if borrow 65536 0) (cadr t1)) (cadr t2))))) |