diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-06-23 15:13:14 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-06-23 15:13:14 +0200 |
commit | 28ba698262eae67368e25662298f7bd2b412d61c (patch) | |
tree | bbf96196c7c48fe4cc9e0684edb6340f607d8992 | |
parent | 999f22429968e1f8299e73dcd1e36d9a2f784009 (diff) | |
download | org-mode-28ba698262eae67368e25662298f7bd2b412d61c.tar.gz |
org-macs: Remove `org-replace-match-keep-properties'
* lisp/org-macs.el (org-replace-match-keep-properties): Remove function.
This function is unused through the code base and doesn't specifically
belong to a public API.
-rw-r--r-- | lisp/org-macs.el | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/lisp/org-macs.el b/lisp/org-macs.el index cefe895..762f6b1 100644 --- a/lisp/org-macs.el +++ b/lisp/org-macs.el @@ -231,13 +231,6 @@ This is in contrast to merely setting it to 0." (setq plist (cddr plist))) p)) -(defun org-replace-match-keep-properties (newtext &optional fixedcase - literal string) - "Like `replace-match', but add the text properties found original text." - (setq newtext (org-add-props newtext (text-properties-at - (match-beginning 0) string))) - (replace-match newtext fixedcase literal string)) - (defmacro org-save-outline-visibility (use-markers &rest body) "Save and restore outline visibility around BODY. If USE-MARKERS is non-nil, use markers for the positions. |