diff options
| author | Glenn Morris | 2013-11-30 00:42:28 -0800 |
|---|---|---|
| committer | Glenn Morris | 2013-11-30 00:42:28 -0800 |
| commit | 3e2fb4db3f517dd051cd35c742355c492e085333 (patch) | |
| tree | de82aeb80b27e6fa59ee52edb9dcff10e2159054 /lisp/replace.el | |
| parent | 44ad1cf76039dc5a2a94e82a6b6eb13124c3cc92 (diff) | |
| download | emacs-3e2fb4db3f517dd051cd35c742355c492e085333.tar.gz emacs-3e2fb4db3f517dd051cd35c742355c492e085333.zip | |
Make the `interactive-only' bytecomp warning like the `obsolete' one
* emacs-lisp/bytecomp.el (byte-compile-form):
Make the `interactive-only' warning like the `obsolete' one.
* comint.el (comint-run):
* files.el (insert-file-literally, insert-file):
* replace.el (replace-string, replace-regexp):
* simple.el (beginning-of-buffer, end-of-buffer, delete-backward-char)
(goto-line, insert-buffer, next-line, previous-line):
Tweak `interactive-only' spec.
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index 0490af71358..061300c7829 100644 --- a/lisp/replace.el +++ b/lisp/replace.el | |||
| @@ -524,7 +524,7 @@ and TO-STRING is also null.)" | |||
| 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 | 526 | (put 'replace-string 'interactive-only |
| 527 | "Use `search-forward' and `replace-match' instead.") | 527 | "use `search-forward' and `replace-match' instead.") |
| 528 | 528 | ||
| 529 | (defun replace-regexp (regexp to-string &optional delimited start end) | 529 | (defun replace-regexp (regexp to-string &optional delimited start end) |
| 530 | "Replace things after point matching REGEXP with TO-STRING. | 530 | "Replace things after point matching REGEXP with TO-STRING. |
| @@ -593,7 +593,7 @@ which will run faster and will not set the mark or print anything." | |||
| 593 | (region-end))))) | 593 | (region-end))))) |
| 594 | (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 | 595 | (put 'replace-regexp 'interactive-only |
| 596 | "Use `re-search-forward' and `replace-match' instead.") | 596 | "use `re-search-forward' and `replace-match' instead.") |
| 597 | 597 | ||
| 598 | 598 | ||
| 599 | (defvar regexp-history nil | 599 | (defvar regexp-history nil |