diff options
author | Juanma Barranquero <[email protected]> | 2008-07-30 09:42:46 +0000 |
---|---|---|
committer | Juanma Barranquero <[email protected]> | 2008-07-30 09:42:46 +0000 |
commit | ff6d2a9e33dd163c6fe9dec2fe8813ab4d689d7e (patch) | |
tree | 92fb27f1f21236180a1308b041d87d5bc8c1f290 /lisp/progmodes/ada-xref.el | |
parent | 3f6b73eff6ebfafeab50df3bf9644ad8a4444403 (diff) |
* lisp/ada-prj.el (ada-prj-initialize-values): Fix use of deleted
ada-xref-set-default-prj-values.
(ada-prj-display-page): Ditto.
* list/ada-xref.el (ada-gnatstub-opts): Fix doc string.
(ada-make-filename-from-adaname): Fix free variable.
Diffstat (limited to 'lisp/progmodes/ada-xref.el')
-rw-r--r-- | lisp/progmodes/ada-xref.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/ada-xref.el b/lisp/progmodes/ada-xref.el index 7470f8ca6b..d38795658c 100644 --- a/lisp/progmodes/ada-xref.el +++ b/lisp/progmodes/ada-xref.el @@ -157,7 +157,7 @@ this string is not empty. It is set whenever a project file is found." :type '(file :must-match t) :group 'ada) (defcustom ada-gnatstub-opts "-q -I${src_dir}" - "*List of the options to pass to `gnatsub' to generate the body of a package. + "*Options to pass to `gnatsub' to generate the body of a package. This has the same syntax as in the project file (with variable substitution)." :type 'string :group 'ada) @@ -2276,7 +2276,7 @@ Return the position of the declaration in the buffer, or nil if not found." "Determine the filename in which ADANAME is found. This is a GNAT specific function that uses gnatkrunch." (let ((krunch-buf (generate-new-buffer "*gkrunch*")) - (cross-prefix (plist-get plist 'cross_prefix))) + (cross-prefix (plist-get (cdr (ada-xref-current-project)) 'cross_prefix))) (save-excursion (set-buffer krunch-buf) ;; send adaname to external process `gnatkr'. |