From 415d4fbf3840a1d997c54ef634b1c127f5fe521c Mon Sep 17 00:00:00 2001
From: David Maus <dmaus@ictsoc.de>
Date: Tue, 1 Feb 2011 06:28:34 +0100
Subject: [PATCH] New function: Strip text properties

* org-test.el (org-test-strip-text-props): New function. Strip text
properties.
---
 testing/org-test.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/testing/org-test.el b/testing/org-test.el
index 52380e997..07456dbbe 100644
--- a/testing/org-test.el
+++ b/testing/org-test.el
@@ -179,6 +179,13 @@ files."
 
 (define-key emacs-lisp-mode-map "\M-\C-j" 'org-test-jump)
 
+
+;;; Miscellaneous helper functions
+(defun org-test-strip-text-props (s)
+  "Return S without any text properties."
+  (let ((noprop (copy-sequence s)))
+    (set-text-properties 0 (length noprop) nil noprop)
+    noprop))
 
 ;;; Load and Run tests
 (defun org-test-load ()