diff options
-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" |