diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-06-12 22:05:42 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-06-12 22:05:42 +0000 |
| commit | 500c585b35563849cd18b06f09ecc1e512bf2db9 (patch) | |
| tree | e6394ffe307f95a683cf0bd126ba6220f86f20c3 | |
| parent | 831ef8525ef9c2f760d1f830816c59929576d2e1 (diff) | |
| download | emacs-500c585b35563849cd18b06f09ecc1e512bf2db9.tar.gz | |
(tpu-include) Use insert-file-contents, remove save-excursion.
| -rw-r--r-- | lisp/emulation/tpu-edt.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/emulation/tpu-edt.el b/lisp/emulation/tpu-edt.el index 73d9cd3ee3f..78c4bbbedc8 100644 --- a/lisp/emulation/tpu-edt.el +++ b/lisp/emulation/tpu-edt.el @@ -744,9 +744,8 @@ This is useful for inserting control characters." (defun tpu-include (file) "TPU-like include file" (interactive "fInclude file: ") - (save-excursion - (insert-file file) - (message ""))) + (insert-file-contents file) + (message "")) (defun tpu-get (file) "TPU-like get file" |