mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-17 10:06:13 +00:00
Code Issues Releases Activity

(tpu-include) Use insert-file-contents, remove save-excursion.

Browse Source
This commit is contained in:
Richard M. Stallman 1998-06-12 22:05:42 +00:00
parent 633cee4683
commit 0ca03bbaa6
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/emulation/tpu-edt.el
View File

@ -744,9 +744,8 @@ This is useful for inserting control characters."
(defun tpu-include (file) (defun tpu-include (file)
"TPU-like include file" "TPU-like include file"
(interactive "fInclude file: ") (interactive "fInclude file: ")
(save-excursion (insert-file-contents file)
(insert-file file) (message ""))
(message "")))
(defun tpu-get (file) (defun tpu-get (file)
"TPU-like get file" "TPU-like get file"