Mercurial > emacs

changeset 57824:83de34d9f04f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ada-make-body-gnatstub): Don't use interactive-p.
author Richard M. Stallman <rms@gnu.org>
date Mon, 01 Nov 2004 07:44:08 +0000
parents d77a1264b555
children 627816ec9a05
files lisp/progmodes/ada-xref.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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))))