Ver Fonte

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'.
Nicolas Goaziou há 10 anos atrás
pai
commit
8740fd7d4e
1 ficheiros alterados com 2 adições e 2 exclusões
  1. 2 2
      testing/lisp/test-org-timer.el

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