diff options
| author | Glenn Morris <rgm@gnu.org> | 2013-11-30 00:42:28 -0800 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2013-11-30 00:42:28 -0800 |
| commit | 3e2fb4db3f517dd051cd35c742355c492e085333 (patch) | |
| tree | de82aeb80b27e6fa59ee52edb9dcff10e2159054 /lisp/files.el | |
| parent | 44ad1cf76039dc5a2a94e82a6b6eb13124c3cc92 (diff) | |
| download | emacs-3e2fb4db3f517dd051cd35c742355c492e085333.tar.gz | |
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/files.el')
| -rw-r--r-- | lisp/files.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/files.el b/lisp/files.el index 1fb253a893a..229770006c7 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -2085,8 +2085,7 @@ Don't call it from programs! Use `insert-file-contents-literally' instead. \(Its calling sequence is different; see its documentation)." (interactive "*fInsert file literally: ") (insert-file-1 filename #'insert-file-contents-literally)) -(put 'insert-file-literally 'interactive-only - "Use `insert-file-contents-literally' instead") +(put 'insert-file-literally 'interactive-only 'insert-file-contents-literally) (defvar find-file-literally nil "Non-nil if this buffer was made by `find-file-literally' or equivalent. @@ -5009,7 +5008,7 @@ Don't call it from programs! Use `insert-file-contents' instead. \(Its calling sequence is different; see its documentation)." (interactive "*fInsert file: ") (insert-file-1 filename #'insert-file-contents)) -(put 'insert-file 'interactive-only "Use `insert-file-contents' instead.") +(put 'insert-file 'interactive-only 'insert-file-contents) (defun append-to-file (start end filename) "Append the contents of the region to the end of file FILENAME. |