From mboxrd@z Thu Jan 1 00:00:00 1970 From: Stig Brautaset Subject: [PATCH] use cl-lib functions rather than cl ones in org-test Date: Fri, 14 Jul 2017 20:55:17 +0100 Message-ID: Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:42735) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dW6gP-0006CQ-03 for emacs-orgmode@gnu.org; Fri, 14 Jul 2017 15:55:25 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dW6gL-0003Ai-Uh for emacs-orgmode@gnu.org; Fri, 14 Jul 2017 15:55:25 -0400 Received: from relay4-d.mail.gandi.net ([2001:4b98:c:538::196]:40329) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1dW6gL-00039m-NU for emacs-orgmode@gnu.org; Fri, 14 Jul 2017 15:55:21 -0400 Received: from mfilter20-d.gandi.net (mfilter20-d.gandi.net [217.70.178.148]) by relay4-d.mail.gandi.net (Postfix) with ESMTP id 0DCCD172095 for ; Fri, 14 Jul 2017 21:55:20 +0200 (CEST) Received: from relay4-d.mail.gandi.net ([IPv6:::ffff:217.70.183.196]) by mfilter20-d.gandi.net (mfilter20-d.gandi.net [::ffff:10.0.15.180]) (amavisd-new, port 10024) with ESMTP id Nmh9FfmonIMT for ; Fri, 14 Jul 2017 21:55:18 +0200 (CEST) Received: from localhost (host86-165-101-30.range86-165.btcentralplus.com [86.165.101.30]) (Authenticated sender: mailbox@brautaset.org) by relay4-d.mail.gandi.net (Postfix) with ESMTPSA id 3BEB617209B for ; Fri, 14 Jul 2017 21:55:17 +0200 (CEST) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: "Emacs-orgmode" To: Org Mode --=-=-= Content-Type: text/x-patch Content-Disposition: inline; filename=0001-org-test.el-use-prefixed-functions-from-cl-lib.el-ra.patch >From ead36e862d150e3a83d363bdead850a2e3ec281d Mon Sep 17 00:00:00 2001 From: Stig Brautaset 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 --- testing/org-test.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/testing/org-test.el b/testing/org-test.el index 844178e5a..5989907dd 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))) -- 2.11.0 (Apple Git-81) --=-=-= Content-Type: text/plain Stig -- ; GNU Emacs 26.0.50, Org mode version 9.0.9 --=-=-=--