# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1099295048 0
# Node ID 83de34d9f04f22f0311c2414ac2db0d8e3ca350d
# Parent  d77a1264b555b10797059467e726cbe02ef0c3e7
(ada-make-body-gnatstub): Don't use interactive-p.

diff -r d77a1264b555 -r 83de34d9f04f lisp/progmodes/ada-xref.el
--- a/lisp/progmodes/ada-xref.el	Mon Nov 01 07:42:19 2004 +0000
+++ b/lisp/progmodes/ada-xref.el	Mon Nov 01 07:44:08 2004 +0000
@@ -2154,17 +2154,17 @@
   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))))