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/files.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/files.el')
| -rw-r--r-- | lisp/files.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/files.el b/lisp/files.el index d44401b4302..1fb253a893a 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -2085,6 +2085,8 @@ 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") (defvar find-file-literally nil "Non-nil if this buffer was made by `find-file-literally' or equivalent. @@ -5007,6 +5009,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.") (defun append-to-file (start end filename) "Append the contents of the region to the end of file FILENAME. |