diff options
| author | Richard M. Stallman | 2004-11-01 07:44:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-11-01 07:44:08 +0000 |
| commit | 2dccd96f17987622cd76ca46708ed6cbc67d3255 (patch) | |
| tree | d91697ac8566d5985992712e0e39fcb8bb723f04 /lisp/progmodes | |
| parent | 21df56d56b86b88565ebe9f05f1acbbfd676670f (diff) | |
| download | emacs-2dccd96f17987622cd76ca46708ed6cbc67d3255.tar.gz emacs-2dccd96f17987622cd76ca46708ed6cbc67d3255.zip | |
(ada-make-body-gnatstub): Don't use interactive-p.
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/ada-xref.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/progmodes/ada-xref.el b/lisp/progmodes/ada-xref.el index fc1d2d46ab3..472cfc3053e 100644 --- a/lisp/progmodes/ada-xref.el +++ b/lisp/progmodes/ada-xref.el | |||
| @@ -2154,17 +2154,17 @@ This is a GNAT specific function that uses gnatkrunch." | |||
| 2154 | adaname | 2154 | adaname |
| 2155 | ) | 2155 | ) |
| 2156 | 2156 | ||
| 2157 | (defun ada-make-body-gnatstub () | 2157 | (defun ada-make-body-gnatstub (&optional interactive) |
| 2158 | "Create an Ada package body in the current buffer. | 2158 | "Create an Ada package body in the current buffer. |
| 2159 | This function uses the `gnatstub' program to create the body. | 2159 | This function uses the `gnatstub' program to create the body. |
| 2160 | This function typically is to be hooked into `ff-file-created-hooks'." | 2160 | This function typically is to be hooked into `ff-file-created-hooks'." |
| 2161 | (interactive) | 2161 | (interactive "p") |
| 2162 | 2162 | ||
| 2163 | (save-some-buffers nil nil) | 2163 | (save-some-buffers nil nil) |
| 2164 | 2164 | ||
| 2165 | ;; If the current buffer is the body (as is the case when calling this | 2165 | ;; 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 | 2166 | ;; function from ff-file-created-hooks), then kill this temporary buffer |
| 2167 | (unless (interactive-p) | 2167 | (unless interactive |
| 2168 | (progn | 2168 | (progn |
| 2169 | (set-buffer-modified-p nil) | 2169 | (set-buffer-modified-p nil) |
| 2170 | (kill-buffer (current-buffer)))) | 2170 | (kill-buffer (current-buffer)))) |