From efddef8e2647e067f7510d4c404ee2fd522bf692 Mon Sep 17 00:00:00 2001 From: Phil Jackson Date: Sun, 25 Jan 2009 16:29:30 +0000 Subject: [PATCH] Removed mis-quotes. --- etest-execute.el | 2 +- etest.el | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/etest-execute.el b/etest-execute.el index 83c3a53..2ac3331 100644 --- a/etest-execute.el +++ b/etest-execute.el @@ -49,7 +49,7 @@ named (to the buffer) file. Then looking in `default-directory'." (name (concat (file-name-sans-extension (file-name-nondirectory buffer-file-name)) ".etest"))) - (mapc '(lambda (d) + (mapc (lambda (d) (let ((name (expand-file-name (concat d "/" name)))) (when (file-exists-p name) (throw 'found name)))) diff --git a/etest.el b/etest.el index 157fd93..b653ca0 100644 --- a/etest.el +++ b/etest.el @@ -208,7 +208,7 @@ results of the run." tests is concerned. Takes a valid etest form and will return a similarly shaped set of results. " (mapcar - '(lambda (test) + (lambda (test) (let ((name (car test))) (cond ((stringp name) @@ -250,7 +250,7 @@ like to compare. See the file etest.etest for example usage." (my-res t) (res-items '(:result :comments :doc :todo)) (my-comments (mapconcat - '(lambda (item) + (lambda (item) (replace-regexp-in-string "\n" " " (format "%9S %S" item -- 2.11.4.GIT