diff options
| author | Bozhidar Batsov <bozhidar@batsov.com> | 2013-11-25 19:16:32 +0200 |
|---|---|---|
| committer | Bozhidar Batsov <bozhidar@batsov.com> | 2013-11-25 19:16:32 +0200 |
| commit | 2bb3a748b362f9635bd406b151b89d7981a0bdaa (patch) | |
| tree | d391eb3677d9b65e22dfb5b0ce0f9c8e3e0f316d /lisp/replace.el | |
| parent | 001394351677736fafd9597a527bd900345fc7e7 (diff) | |
| download | emacs-2bb3a748b362f9635bd406b151b89d7981a0bdaa.tar.gz | |
* lisp/emacs-lisp/bytecomp.el (byte-compile-interactive-only-functions):
Mark as obsolete and replace it with a symbol property.
(byte-compile-form): Use new 'interactive-only property.
* lisp/comint.el, lisp/files.el, lisp/replace.el, lisp/simple.el:
Apply new 'interactive-only properly.
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.)" (if (and transient-mark-mode mark-active) (region-end))))) (perform-replace from-string to-string nil nil delimited nil nil start end)) +(put 'replace-string 'interactive-only + "Use `search-forward' and `replace-match' instead.") (defun replace-regexp (regexp to-string &optional delimited start end) "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." (if (and transient-mark-mode mark-active) (region-end))))) (perform-replace regexp to-string nil t delimited nil nil start end)) +(put 'replace-regexp 'interactive-only + "Use `re-search-forward' and `replace-match' instead.") (defvar regexp-history nil |