New function: Strip text properties

* org-test.el (org-test-strip-text-props): New function. Strip text properties.
2011-02-01 06:28:34 +01:00 · 2011-02-01 06:28:34 +01:00 · 415d4fbf38
parent e6f51d2485
commit 415d4fbf38
1 changed files with 7 additions and 0 deletions
--- 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 ()