# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1121686133 0
# Node ID 0eca480a23a7fd134879ce333c49a8a97ae9795a
# Parent  e0e9bea5acc596d3b14312e52dd75e089c3178d2
(ada-make-body): Use `insert-buffer-substring' and `goto-char', not `insert-buffer'.

diff -r e0e9bea5acc5 -r 0eca480a23a7 lisp/progmodes/ada-mode.el
--- a/lisp/progmodes/ada-mode.el	Mon Jul 18 11:17:42 2005 +0000
+++ b/lisp/progmodes/ada-mode.el	Mon Jul 18 11:28:53 2005 +0000
@@ -5349,7 +5349,8 @@
 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)