diff options
| author | Juanma Barranquero | 2005-07-18 11:28:53 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2005-07-18 11:28:53 +0000 |
| commit | 877dde9e8bcf1c656ecf311dbd1bf76d288fb42c (patch) | |
| tree | 7b0d49d8e9873c9cc68d57ce0fd8c4fb0095f102 | |
| parent | f706036b3e69a7463dd867b61864f5518c478260 (diff) | |
| download | emacs-877dde9e8bcf1c656ecf311dbd1bf76d288fb42c.tar.gz emacs-877dde9e8bcf1c656ecf311dbd1bf76d288fb42c.zip | |
(ada-make-body): Use `insert-buffer-substring' and `goto-char', not `insert-buffer'.
| -rw-r--r-- | lisp/progmodes/ada-mode.el | 3 |
1 files changed, 2 insertions, 1 deletions
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. | |||
| 5349 | This function typically is to be hooked into `ff-file-created-hooks'." | 5349 | This function typically is to be hooked into `ff-file-created-hooks'." |
| 5350 | (interactive) | 5350 | (interactive) |
| 5351 | (delete-region (point-min) (point-max)) | 5351 | (delete-region (point-min) (point-max)) |
| 5352 | (insert-buffer (car (cdr (buffer-list)))) | 5352 | (insert-buffer-substring (car (cdr (buffer-list)))) |
| 5353 | (goto-char (point-min)) | ||
| 5353 | (ada-mode) | 5354 | (ada-mode) |
| 5354 | 5355 | ||
| 5355 | (let (found ada-procedure-or-package-start-regexp) | 5356 | (let (found ada-procedure-or-package-start-regexp) |