diff options
| author | Peter Feigl <peter.feigl@jku.at> | 2015-02-05 10:55:08 +0100 |
|---|---|---|
| committer | Peter Feigl <peter.feigl@jku.at> | 2015-02-05 10:55:08 +0100 |
| commit | b7e26963011a4677a9982af3b189c32b714fc969 (patch) | |
| tree | a5d7e7139acaaa79eddacb8a23d5cf1a941077f7 /lisp | |
| parent | a5ac84bee0bb45927dcd3931c356690e9fde4903 (diff) | |
| download | fork-ledger-b7e26963011a4677a9982af3b189c32b714fc969.tar.gz fork-ledger-b7e26963011a4677a9982af3b189c32b714fc969.tar.bz2 fork-ledger-b7e26963011a4677a9982af3b189c32b714fc969.zip | |
cleaning up elisp byte compiler warnings
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ledger-report.el | 2 | ||||
| -rw-r--r-- | lisp/ledger-schedule.el | 17 |
2 files changed, 8 insertions, 11 deletions
diff --git a/lisp/ledger-report.el b/lisp/ledger-report.el index 0eb0e4a0..4131b92a 100644 --- a/lisp/ledger-report.el +++ b/lisp/ledger-report.el @@ -31,8 +31,6 @@ (declare-function ledger-navigate-to-line "ledger-navigate" (line-number)) (require 'easymenu) -(eval-when-compile - (require 'cl)) (defvar ledger-buf) diff --git a/lisp/ledger-schedule.el b/lisp/ledger-schedule.el index 6d6fdea1..39237ffb 100644 --- a/lisp/ledger-schedule.el +++ b/lisp/ledger-schedule.el @@ -32,9 +32,8 @@ (require 'ledger-init) -;; TODO: replace this by (require 'cl-lib) -(with-no-warnings - (require 'cl)) +(require 'cl-macs) + (declare-function ledger-mode "ledger-mode") ;;; Code: @@ -103,15 +102,15 @@ COUNT 0) means EVERY day-of-week (eg. every Saturday)" (cond ((zerop count) ;; Return true if day-of-week matches `(eq (nth 6 (decode-time date)) ,day-of-week)) ((> count 0) ;; Positive count - (let ((decoded (gensym))) + (let ((decoded (cl-gensym))) `(let ((,decoded (decode-time date))) (and (eq (nth 6 ,decoded) ,day-of-week) (between (nth 3 ,decoded) ,(* (1- count) 7) ,(* count 7)))))) ((< count 0) - (let ((days-in-month (gensym)) - (decoded (gensym))) + (let ((days-in-month (cl-gensym)) + (decoded (cl-gensym))) `(let* ((,decoded (decode-time date)) (,days-in-month (ledger-schedule-days-in-month (nth 4 ,decoded) @@ -136,9 +135,9 @@ For example every second Friday, regardless of month." (defun ledger-schedule-constrain-date-range (month1 day1 month2 day2) "Return a form of DATE that is true if DATE falls between MONTH1 DAY1 and MONTH2 DAY2." - (let ((decoded (gensym)) - (target-month (gensym)) - (target-day (gensym))) + (let ((decoded (cl-gensym)) + (target-month (cl-gensym)) + (target-day (cl-gensym))) `(let* ((,decoded (decode-time date)) (,target-month (nth 4 decoded)) (,target-day (nth 3 decoded))) |