[Emacs-diffs] Changes to emacs/lisp/progmodes/ada-xref.el

[Richard M . Stallman]

Index: emacs/lisp/progmodes/ada-xref.el
diff -c emacs/lisp/progmodes/ada-xref.el:1.19 
emacs/lisp/progmodes/ada-xref.el:1.20
*** emacs/lisp/progmodes/ada-xref.el:1.19       Sun Aug 22 17:14:02 2004
--- emacs/lisp/progmodes/ada-xref.el    Mon Nov  1 07:44:08 2004
***************
*** 2154,2170 ****
    adaname
    )
  
! (defun ada-make-body-gnatstub ()
    "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)
  
    (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)
      (progn
        (set-buffer-modified-p nil)
        (kill-buffer (current-buffer))))
--- 2154,2170 ----
    adaname
    )
  
! (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 "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
      (progn
        (set-buffer-modified-p nil)
        (kill-buffer (current-buffer))))