From f99197e1436df0175096a0f6bb3559fa98a1d789 Mon Sep 17 00:00:00 2001
From: David Maus <dmaus@ictsoc.de>
Date: Tue, 2 Nov 2010 21:11:16 +0100
Subject: [PATCH] `which-function' does not return a list, but the name of the
 function

* org-test.el (org-test-current-defun): `which-function' does not
return a list, but the name of the function.
---
 testing/org-test.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/testing/org-test.el b/testing/org-test.el
index 3535c8b36..1b8ade550 100644
--- a/testing/org-test.el
+++ b/testing/org-test.el
@@ -197,7 +197,7 @@ files."
 (defun org-test-current-defun ()
   "Test the current function."
   (interactive)
-  (ert (car (which-function))))
+  (ert (which-function)))
 
 (defun org-test-run-all-tests ()
   "Run all defined tests matching \"\\(org\\|ob\\)\".