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-prj.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-prj.el')
-rw-r--r-- | lisp/progmodes/ada-prj.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/progmodes/ada-prj.el b/lisp/progmodes/ada-prj.el index 9f1aa36cee..f70906bae0 100644 --- a/lisp/progmodes/ada-prj.el +++ b/lisp/progmodes/ada-prj.el @@ -104,7 +104,7 @@ If no project file is found, return the default values." ;; 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 @@ connect to the target when working with cross-environments" t) (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 " ") |