From 6b24ffdad90d3c48005f99c896e7beeb2ac4d5f1 Mon Sep 17 00:00:00 2001 From: Achim Gratz Date: Sun, 25 Jan 2015 11:20:02 +0100 Subject: [PATCH] compatibility fixes for fda70440f4 * testing/lisp/test-ob-lob.el (test-ob-lob/call-with-header-arguments): Replace `cl-letf' with `letf' for compatibility with older Emacsen. * testing/lisp/test-org-timer.el (test-org-timer/other-timer-error): Also check for 'error since 'user-error is not used by older Emacsen. --- testing/lisp/test-ob-lob.el | 2 +- testing/lisp/test-org-timer.el | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/testing/lisp/test-ob-lob.el b/testing/lisp/test-ob-lob.el index 89650aac5..31862af37 100644 --- a/testing/lisp/test-ob-lob.el +++ b/testing/lisp/test-ob-lob.el @@ -39,7 +39,7 @@ (ert-deftest test-ob-lob/call-with-header-arguments () "Test the evaluation of a library of babel #+call: line." - (cl-letf (((symbol-function 'org-babel-insert-result) + (letf (((symbol-function 'org-babel-insert-result) (symbol-function 'ignore))) (org-test-at-id "fab7e291-fde6-45fc-bf6e-a485b8bca2f0" (move-beginning-of-line 1) diff --git a/testing/lisp/test-org-timer.el b/testing/lisp/test-org-timer.el index cfa9071a4..db59a8975 100644 --- a/testing/lisp/test-org-timer.el +++ b/testing/lisp/test-org-timer.el @@ -263,13 +263,13 @@ Also, mute output from `message'." (test-org-timer/with-temp-text "" (org-timer-start) (org-timer-set-timer 10)) - :type 'user-error) + :type (list 'error 'user-error)) ;; Countdown timer is running. (should-error (test-org-timer/with-temp-text "" (org-timer-set-timer 10) (org-timer-start)) - :type 'user-error)) + :type (list 'error 'user-error))) (provide 'test-org-timer) ;;; test-org-timer.el end here -- 2.11.4.GIT