From 877dde9e8bcf1c656ecf311dbd1bf76d288fb42c Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Mon, 18 Jul 2005 11:28:53 +0000 Subject: [PATCH] (ada-make-body): Use `insert-buffer-substring' and `goto-char', not `insert-buffer'. --- lisp/progmodes/ada-mode.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el index fdb1a9d69f7..d062d6d1e98 100644 --- a/lisp/progmodes/ada-mode.el +++ b/lisp/progmodes/ada-mode.el @@ -5349,7 +5349,8 @@ spec buffer in here and modify it to make it a body. This function typically is to be hooked into `ff-file-created-hooks'." (interactive) (delete-region (point-min) (point-max)) - (insert-buffer (car (cdr (buffer-list)))) + (insert-buffer-substring (car (cdr (buffer-list)))) + (goto-char (point-min)) (ada-mode) (let (found ada-procedure-or-package-start-regexp) -- 2.39.2