forked from mirrors/org-mode
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.
This commit is contained in:
parent
999f224299
commit
28ba698262
|
@ -231,13 +231,6 @@ This is in contrast to merely setting it to 0."
|
||||||
(setq plist (cddr plist)))
|
(setq plist (cddr plist)))
|
||||||
p))
|
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)
|
(defmacro org-save-outline-visibility (use-markers &rest body)
|
||||||
"Save and restore outline visibility around BODY.
|
"Save and restore outline visibility around BODY.
|
||||||
If USE-MARKERS is non-nil, use markers for the positions.
|
If USE-MARKERS is non-nil, use markers for the positions.
|
||||||
|
|
Loading…
Reference in New Issue