Mercurial > emacs
changeset 64434:0eca480a23a7
(ada-make-body): Use `insert-buffer-substring' and `goto-char', not `insert-buffer'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Mon, 18 Jul 2005 11:28:53 +0000 |
| parents | e0e9bea5acc5 |
| children | 756d49c05efa |
| files | lisp/progmodes/ada-mode.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)