/[emacs]/emacs/lisp/progmodes/ada-xref.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/ada-xref.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.16.4.3 by miles, Fri Aug 27 07:00:27 2004 UTC revision 1.16.4.4 by miles, Thu Nov 4 08:55:38 2004 UTC
# Line 2154  This is a GNAT specific function that us Line 2154  This is a GNAT specific function that us
2154    adaname    adaname
2155    )    )
2156    
2157  (defun ada-make-body-gnatstub ()  (defun ada-make-body-gnatstub (&optional interactive)
2158    "Create an Ada package body in the current buffer.    "Create an Ada package body in the current buffer.
2159  This function uses the `gnatstub' program to create the body.  This function uses the `gnatstub' program to create the body.
2160  This function typically is to be hooked into `ff-file-created-hooks'."  This function typically is to be hooked into `ff-file-created-hooks'."
2161    (interactive)    (interactive "p")
2162    
2163    (save-some-buffers nil nil)    (save-some-buffers nil nil)
2164    
2165    ;; If the current buffer is the body (as is the case when calling this    ;; If the current buffer is the body (as is the case when calling this
2166    ;; function from ff-file-created-hooks), then kill this temporary buffer    ;; function from ff-file-created-hooks), then kill this temporary buffer
2167    (unless (interactive-p)    (unless interactive
2168      (progn      (progn
2169        (set-buffer-modified-p nil)        (set-buffer-modified-p nil)
2170        (kill-buffer (current-buffer))))        (kill-buffer (current-buffer))))

Legend:
Removed from v.1.16.4.3  
changed lines
  Added in v.1.16.4.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26