forked from mirrors/org-mode
New function: Strip text properties
* org-test.el (org-test-strip-text-props): New function. Strip text properties.
This commit is contained in:
parent
e6f51d2485
commit
415d4fbf38
|
@ -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 ()
|
||||
|
|
Loading…
Reference in New Issue