diff lisp/progmodes/ada-xref.el @ 97110:59b62ec53121

* 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.

--- a/lisp/progmodes/ada-xref.el	Wed Jul 30 07:56:17 2008 +0000
+++ b/lisp/progmodes/ada-xref.el	Wed Jul 30 09:42:46 2008 +0000
@@ -157,7 +157,7 @@
   :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 @@
   "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'.