- (let ((file (ada-prj-find-prj-file)))
- (if file
- (progn
- (ada-reread-prj-file file)
- (ada-customize))
- (ada-prj-new))))
-
-(defun ada-prj-add-ada-menu ()
- "Add a new submenu to the Ada menu.
-The items are added to the menu NAME in map MAP. NAME should be the same
-name as was passed to `ada-create-menu'."
- (if ada-xemacs
- (progn
- (funcall (symbol-function 'add-menu-button)
- '("Ada" "Project")
- ["Edit" ada-prj-edit t] "Associate")
- (funcall (symbol-function 'add-menu-button)
- '("Ada" "Project")
- ["New..." ada-prj-new t] "Associate"))
- (define-key (lookup-key ada-mode-map [menu-bar Ada Project])
- [Edit] '("Edit current" . ada-prj-edit))
- (define-key (lookup-key ada-mode-map [menu-bar Ada Project])
- [New] '("New" . ada-prj-new))))
-
-(defun ada-prj-add-keymap ()
- "Add new keybindings for ada-prj."
- (define-key ada-mode-map "\C-cu" 'ada-prj-edit))
-
-(defun ada-prj-initialize-values (symbol ada-buffer &optional filename)