5349 |
This function typically is to be hooked into `ff-file-created-hooks'." |
This function typically is to be hooked into `ff-file-created-hooks'." |
5350 |
(interactive) |
(interactive) |
5351 |
(delete-region (point-min) (point-max)) |
(delete-region (point-min) (point-max)) |
5352 |
(insert-buffer (car (cdr (buffer-list)))) |
(insert-buffer-substring (car (cdr (buffer-list)))) |
5353 |
|
(goto-char (point-min)) |
5354 |
(ada-mode) |
(ada-mode) |
5355 |
|
|
5356 |
(let (found ada-procedure-or-package-start-regexp) |
(let (found ada-procedure-or-package-start-regexp) |