143 |
|
|
144 |
(defcustom ada-tight-gvd-integration nil |
(defcustom ada-tight-gvd-integration nil |
145 |
"*If non-nil, a new Emacs frame will be swallowed in GVD when debugging. |
"*If non-nil, a new Emacs frame will be swallowed in GVD when debugging. |
146 |
If GVD is not the debugger used, nothing happens.") |
If GVD is not the debugger used, nothing happens." |
147 |
|
:type 'boolean :group 'ada) |
148 |
|
|
149 |
(defcustom ada-xref-search-with-egrep t |
(defcustom ada-xref-search-with-egrep t |
150 |
"*If non-nil, use egrep to find the possible declarations for an entity. |
"*If non-nil, use egrep to find the possible declarations for an entity. |
507 |
(equal ada-prj-default-project-file |
(equal ada-prj-default-project-file |
508 |
(car x)) |
(car x)) |
509 |
)))) |
)))) |
510 |
|
|
511 |
;; Parses all the known project files, and insert at |
;; Parses all the known project files, and insert at |
512 |
;; least the default one (in case |
;; least the default one (in case |
513 |
;; ada-xref-project-files is nil) |
;; ada-xref-project-files is nil) |
514 |
(or ada-xref-project-files '(nil)))))) |
(or ada-xref-project-files '(nil)))))) |
515 |
|
|
516 |
(easy-menu-add-item ada-mode-menu '() submenu))) |
(easy-menu-add-item ada-mode-menu '() submenu))) |
517 |
|
|
518 |
|
|