From 8740fd7d4e834d90a3519cdce623d8c1912a3f06 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sat, 13 Dec 2014 16:22:49 +0100 Subject: [PATCH] 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'. --- testing/lisp/test-org-timer.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/testing/lisp/test-org-timer.el b/testing/lisp/test-org-timer.el index 6409b1260..db0b25813 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)) -- 2.11.4.GIT