diff options
author | Stig Brautaset <stig@brautaset.org> | 2017-07-14 20:55:17 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-07-23 11:06:37 +0200 |
commit | 3e1aeac3b3d57dfab86c2cc230fad1459a0cecc8 (patch) | |
tree | e32db60a643992255fe7c15b502d79dd14af6daf | |
parent | 3650c980d8b9f316f5640c069d1dfd5083ca5517 (diff) | |
download | org-mode-3e1aeac3b3d57dfab86c2cc230fad1459a0cecc8.tar.gz |
use cl-lib functions rather than cl ones in org-test
From ead36e862d150e3a83d363bdead850a2e3ec281d Mon Sep 17 00:00:00 2001
From: Stig Brautaset <stig@brautaset.org>
Date: Fri, 14 Jul 2017 20:43:11 +0100
Subject: [PATCH 1/3] org-test.el: use prefixed functions from cl-lib.el rather
than cl.el
-rw-r--r-- | testing/org-test.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/testing/org-test.el b/testing/org-test.el index 844178e..5989907 100644 --- a/testing/org-test.el +++ b/testing/org-test.el @@ -104,7 +104,7 @@ org-test searches this directory up the directory tree.") This can be used at the top of code-block-language specific test files to avoid loading the file on systems without the executable." - (unless (reduce + (unless (cl-reduce (lambda (acc dir) (or acc (file-exists-p (expand-file-name exe dir)))) exec-path :initial-value nil) @@ -200,7 +200,7 @@ otherwise place the point at the beginning of the inserted text." (defmacro org-test-with-temp-text-in-file (text &rest body) "Run body in a temporary file buffer with Org mode as the active mode." (declare (indent 1)) - (let ((results (gensym))) + (let ((results (cl-gensym))) `(let ((file (make-temp-file "org-test")) (kill-buffer-query-functions nil) (inside-text (if (stringp ,text) ,text (eval ,text))) |