[Emacs-diffs] Changes to emacs/lisp/progmodes/ada-xref.el,v

[Juanma Barranquero]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      08/07/30 09:42:46

Index: progmodes/ada-xref.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/ada-xref.el,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -b -r1.45 -r1.46
--- progmodes/ada-xref.el       29 Jul 2008 13:20:39 -0000      1.45
+++ progmodes/ada-xref.el       30 Jul 2008 09:42:46 -0000      1.46
@@ -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'.