diff options
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index 9d7aba333c4..0490af71358 100644 --- a/lisp/replace.el +++ b/lisp/replace.el | |||
| @@ -523,6 +523,8 @@ and TO-STRING is also null.)" | |||
| 523 | (if (and transient-mark-mode mark-active) | 523 | (if (and transient-mark-mode mark-active) |
| 524 | (region-end))))) | 524 | (region-end))))) |
| 525 | (perform-replace from-string to-string nil nil delimited nil nil start end)) | 525 | (perform-replace from-string to-string nil nil delimited nil nil start end)) |
| 526 | (put 'replace-string 'interactive-only | ||
| 527 | "Use `search-forward' and `replace-match' instead.") | ||
| 526 | 528 | ||
| 527 | (defun replace-regexp (regexp to-string &optional delimited start end) | 529 | (defun replace-regexp (regexp to-string &optional delimited start end) |
| 528 | "Replace things after point matching REGEXP with TO-STRING. | 530 | "Replace things after point matching REGEXP with TO-STRING. |
| @@ -590,6 +592,8 @@ which will run faster and will not set the mark or print anything." | |||
| 590 | (if (and transient-mark-mode mark-active) | 592 | (if (and transient-mark-mode mark-active) |
| 591 | (region-end))))) | 593 | (region-end))))) |
| 592 | (perform-replace regexp to-string nil t delimited nil nil start end)) | 594 | (perform-replace regexp to-string nil t delimited nil nil start end)) |
| 595 | (put 'replace-regexp 'interactive-only | ||
| 596 | "Use `re-search-forward' and `replace-match' instead.") | ||
| 593 | 597 | ||
| 594 | 598 | ||
| 595 | (defvar regexp-history nil | 599 | (defvar regexp-history nil |