diff options
author | Richard M. Stallman <[email protected]> | 2004-11-01 07:44:08 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 2004-11-01 07:44:08 +0000 |
commit | 2dccd96f17987622cd76ca46708ed6cbc67d3255 (patch) | |
tree | d91697ac8566d5985992712e0e39fcb8bb723f04 | |
parent | 21df56d56b86b88565ebe9f05f1acbbfd676670f (diff) |
(ada-make-body-gnatstub): Don't use interactive-p.
-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 fc1d2d46ab..472cfc3053 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." adaname ) -(defun ada-make-body-gnatstub () +(defun ada-make-body-gnatstub (&optional interactive) "Create an Ada package body in the current buffer. This function uses the `gnatstub' program to create the body. This function typically is to be hooked into `ff-file-created-hooks'." - (interactive) + (interactive "p") (save-some-buffers nil nil) ;; If the current buffer is the body (as is the case when calling this ;; function from ff-file-created-hooks), then kill this temporary buffer - (unless (interactive-p) + (unless interactive (progn (set-buffer-modified-p nil) (kill-buffer (current-buffer)))) |