[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/ada-xref.el [emacs-unicode
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/ada-xref.el [emacs-unicode-2] |
Date: |
Thu, 04 Nov 2004 04:04:53 -0500 |
Index: emacs/lisp/progmodes/ada-xref.el
diff -c emacs/lisp/progmodes/ada-xref.el:1.16.4.3
emacs/lisp/progmodes/ada-xref.el:1.16.4.4
*** emacs/lisp/progmodes/ada-xref.el:1.16.4.3 Fri Aug 27 07:00:27 2004
--- emacs/lisp/progmodes/ada-xref.el Thu Nov 4 08:55:38 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))))
- [Emacs-diffs] Changes to emacs/lisp/progmodes/ada-xref.el [emacs-unicode-2],
Miles Bader <=