Commit 877dde9e authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

(ada-make-body): Use `insert-buffer-substring' and `goto-char', not `insert-buffer'.

parent f706036b
...@@ -5349,7 +5349,8 @@ spec buffer in here and modify it to make it a body. ...@@ -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'." This function typically is to be hooked into `ff-file-created-hooks'."
(interactive) (interactive)
(delete-region (point-min) (point-max)) (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) (ada-mode)
(let (found ada-procedure-or-package-start-regexp) (let (found ada-procedure-or-package-start-regexp)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment