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

[Miles Bader]

Index: emacs/lisp/progmodes/ada-xref.el
diff -c emacs/lisp/progmodes/ada-xref.el:1.10.2.4 
emacs/lisp/progmodes/ada-xref.el:1.10.2.5
*** emacs/lisp/progmodes/ada-xref.el:1.10.2.4   Sat Sep  4 09:26:23 2004
--- emacs/lisp/progmodes/ada-xref.el    Thu Nov  4 13:12:43 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))))