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

[Juanma Barranquero]

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

Index: progmodes/ada-prj.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/ada-prj.el,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -b -r1.27 -r1.28
--- progmodes/ada-prj.el        29 Jul 2008 13:20:39 -0000      1.27
+++ progmodes/ada-prj.el        30 Jul 2008 09:42:46 -0000      1.28
@@ -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 "         ")