diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2014-12-13 16:22:49 +0100 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2014-12-13 16:22:49 +0100 |
| commit | 8740fd7d4e834d90a3519cdce623d8c1912a3f06 (patch) | |
| tree | 7ea26af5d711bc27c4da9dfc535f03e1750c8aac | |
| parent | b8d790a076918783a9d7e8653fbf32b02cc72210 (diff) | |
| download | org-mode-8740fd7d4e834d90a3519cdce623d8c1912a3f06.tar.gz | |
test-org-timer: Preserve Emacs 23 compatibility
* testing/lisp/test-org-timer.el (test-org-timer/with-temp-text,
test-org-timer/with-current-time): Use `letf' instead of `cl-letf'.
| -rw-r--r-- | testing/lisp/test-org-timer.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/testing/lisp/test-org-timer.el b/testing/lisp/test-org-timer.el index 6409b12..db0b258 100644 --- a/testing/lisp/test-org-timer.el +++ b/testing/lisp/test-org-timer.el @@ -25,7 +25,7 @@ "Like `org-test-with-temp-text', but set timer-specific variables. Also, mute output from `message'." (declare (indent 1)) - `(cl-letf (((symbol-function 'message) (lambda (&rest args) nil))) + `(letf (((symbol-function 'message) (lambda (&rest args) nil))) (org-test-with-temp-text ,text (let (org-timer-start-time org-timer-pause-time @@ -38,7 +38,7 @@ Also, mute output from `message'." (defmacro test-org-timer/with-current-time (time &rest body) "Run BODY, setting `current-time' output to TIME." (declare (indent 1)) - `(cl-letf (((symbol-function 'current-time) (lambda () ,time))) + `(letf (((symbol-function 'current-time) (lambda () ,time))) ,@body)) |