diff options
author | David Maus <dmaus@ictsoc.de> | 2011-02-01 06:28:34 +0100 |
---|---|---|
committer | David Maus <dmaus@ictsoc.de> | 2011-02-01 06:28:34 +0100 |
commit | 415d4fbf3840a1d997c54ef634b1c127f5fe521c (patch) | |
tree | 962550d8930afb3667db7384976a17c9234f626f | |
parent | e6f51d24856b368f3d1027b9ddfb27b196a642cc (diff) | |
download | org-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.el | 7 |
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." |