diff options
| author | Richard M. Stallman | 1998-06-12 22:05:42 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-06-12 22:05:42 +0000 |
| commit | 0ca03bbaa626bbca438b37f73a55ccf4a5c9e319 (patch) | |
| tree | 940a1353623c0b0b53276b6410b6b3fbfbf46279 | |
| parent | 633cee46837bd9f8b6b1288f8951ad6e0f2cbd23 (diff) | |
| download | emacs-0ca03bbaa626bbca438b37f73a55ccf4a5c9e319.tar.gz emacs-0ca03bbaa626bbca438b37f73a55ccf4a5c9e319.zip | |
(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." | |||
| 744 | (defun tpu-include (file) | 744 | (defun tpu-include (file) |
| 745 | "TPU-like include file" | 745 | "TPU-like include file" |
| 746 | (interactive "fInclude file: ") | 746 | (interactive "fInclude file: ") |
| 747 | (save-excursion | 747 | (insert-file-contents file) |
| 748 | (insert-file file) | 748 | (message "")) |
| 749 | (message ""))) | ||
| 750 | 749 | ||
| 751 | (defun tpu-get (file) | 750 | (defun tpu-get (file) |
| 752 | "TPU-like get file" | 751 | "TPU-like get file" |