summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Maus <dmaus@ictsoc.de>2011-02-01 06:28:34 +0100
committerDavid Maus <dmaus@ictsoc.de>2011-02-01 06:28:34 +0100
commit415d4fbf3840a1d997c54ef634b1c127f5fe521c (patch)
tree962550d8930afb3667db7384976a17c9234f626f
parente6f51d24856b368f3d1027b9ddfb27b196a642cc (diff)
downloadorg-mode-415d4fbf3840a1d997c54ef634b1c127f5fe521c.tar.gz
New function: Strip text properties
* org-test.el (org-test-strip-text-props): New function. Strip text properties.
-rw-r--r--testing/org-test.el7
1 files changed, 7 insertions, 0 deletions
diff --git a/testing/org-test.el b/testing/org-test.el
index 52380e9..07456db 100644
--- a/testing/org-test.el
+++ b/testing/org-test.el
@@ -180,6 +180,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 ()
"Load up the org-mode test suite."