2154 |
adaname |
adaname |
2155 |
) |
) |
2156 |
|
|
2157 |
(defun ada-make-body-gnatstub () |
(defun ada-make-body-gnatstub (&optional interactive) |
2158 |
"Create an Ada package body in the current buffer. |
"Create an Ada package body in the current buffer. |
2159 |
This function uses the `gnatstub' program to create the body. |
This function uses the `gnatstub' program to create the body. |
2160 |
This function typically is to be hooked into `ff-file-created-hooks'." |
This function typically is to be hooked into `ff-file-created-hooks'." |
2161 |
(interactive) |
(interactive "p") |
2162 |
|
|
2163 |
(save-some-buffers nil nil) |
(save-some-buffers nil nil) |
2164 |
|
|
2165 |
;; If the current buffer is the body (as is the case when calling this |
;; If the current buffer is the body (as is the case when calling this |
2166 |
;; function from ff-file-created-hooks), then kill this temporary buffer |
;; function from ff-file-created-hooks), then kill this temporary buffer |
2167 |
(unless (interactive-p) |
(unless interactive |
2168 |
(progn |
(progn |
2169 |
(set-buffer-modified-p nil) |
(set-buffer-modified-p nil) |
2170 |
(kill-buffer (current-buffer)))) |
(kill-buffer (current-buffer)))) |