# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1217410966 0
# Node ID 59b62ec53121c9e95b64b85ba04fb37995e30948
# Parent  20a9ca33d9374e3cdebe498a2664ec41d71cbbb3
* 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.

diff -r 20a9ca33d937 -r 59b62ec53121 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Jul 30 07:56:17 2008 +0000
+++ b/lisp/ChangeLog	Wed Jul 30 09:42:46 2008 +0000
@@ -1,3 +1,12 @@
+2008-07-30  Stepehen Leake <stephen_leake@stephe-leake.org>
+
+	* 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.
+
 2008-07-30  Dan Nicolaescu  <dann@ics.uci.edu>
 
 	* vc-git.el (vc-git-status-printer): Synchronize with the default.
@@ -17,12 +26,11 @@
 	tasks, as well as extern declarations of tasks for indenting and
 	for foward/backward expression.
 
-2008-07-30  Wilson Snyder <wsnyder@wsnyder.org>
+2008-07-30  Wilson Snyder  <wsnyder@wsnyder.org>
 
         * verilog-mode (verilog-read-decls): Allow AUTORESET to work with
 	SV 'logic' signals.  [Julian Gorfajn]
-	(verilog-auto-inst-column): Make verilog-auto-inst-column
-	customizable.
+	(verilog-auto-inst-column): Make verilog-auto-inst-column customizable.
 	(verilog-string-replace-matches): Avoid recursion with small
 	replacements.
 	(verilog-auto-inst-param-value, verilog-mode-version)
@@ -31,10 +39,9 @@
 	(verilog-auto-inst-port, verilog-simplify-range-expression): Add
 	verilog-auto-inst-param-value option for AUTOINST.  [David Rogoff]
 	This allows parameters to be replaced with their values, on the
-	expansion of an AUTOINST with Verilog 2001 style parameter
-	settings.
-
-2008-07-30  David Lord <david.lord@phonecoop.coop>
+	expansion of an AUTOINST with Verilog 2001 style parameter settings.
+
+2008-07-30  David Lord  <david.lord@phonecoop.coop>
 
 	* calendar/timeclock.el (timeclock-day-projects): Change a `cdr'
 	to `cddr'.
diff -r 20a9ca33d937 -r 59b62ec53121 lisp/progmodes/ada-prj.el
--- a/lisp/progmodes/ada-prj.el	Wed Jul 30 07:56:17 2008 +0000
+++ b/lisp/progmodes/ada-prj.el	Wed Jul 30 09:42:46 2008 +0000
@@ -104,7 +104,7 @@
 
     ;;  Set default values (except for the file name if this was given
     ;;  in the buffer
-    (ada-xref-set-default-prj-values symbol ada-buffer)
+    (set symbol (ada-default-prj-properties))
     (if (and filename (not (string= filename "")))
 	(set symbol (plist-put (eval symbol) 'filename filename)))
     ))
@@ -463,8 +463,7 @@
   (widget-insert "______________________________________________________________________\n\n       ")
   (widget-create 'push-button
 		 :notify (lambda (&rest ignore)
-			   (ada-xref-set-default-prj-values
-			    'ada-prj-current-values ada-prj-ada-buffer)
+			   (setq ada-prj-current-values (ada-default-prj-properties))
 			   (ada-prj-display-page 1))
 		 "Reset to Default Values")
   (widget-insert "         ")
diff -r 20a9ca33d937 -r 59b62ec53121 lisp/progmodes/ada-xref.el
--- 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'.