mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-04 22:50:59 -08:00
Code Issues Projects Releases Wiki Activity

(ada-make-body-gnatstub): Don't use interactive-p.

Browse source
This commit is contained in:
Richard M. Stallman 2004-11-01 07:44:08 +00:00
parent 21df56d56b
commit 2dccd96f17
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/progmodes/ada-xref.el
View file

@ -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))))