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

[Juanma Barranquero]

Index: emacs/lisp/progmodes/ada-prj.el
diff -c emacs/lisp/progmodes/ada-prj.el:1.11 
emacs/lisp/progmodes/ada-prj.el:1.12
*** emacs/lisp/progmodes/ada-prj.el:1.11        Tue Apr 29 19:43:00 2003
--- emacs/lisp/progmodes/ada-prj.el     Sun May  4 15:55:38 2003
***************
*** 3,9 ****
  ;; Copyright (C) 1998, 99, 2000-2003 Free Software Foundation, Inc.
  
  ;; Author: Emmanuel Briot <address@hidden>
! ;; Ada Core Technologies's version:   $Revision: 1.11 $
  ;; Keywords: languages, ada, project file
  
  ;; This file is part of GNU Emacs.
--- 3,9 ----
  ;; Copyright (C) 1998, 99, 2000-2003 Free Software Foundation, Inc.
  
  ;; Author: Emmanuel Briot <address@hidden>
! ;; Ada Core Technologies's version:   $Revision: 1.12 $
  ;; Keywords: languages, ada, project file
  
  ;; This file is part of GNU Emacs.
***************
*** 38,56 ****
  
  ;; ----- Requirements -----------------------------------------------------
  
- (eval-when-compile
-  (require 'ada-mode))
  (require 'cus-edit)
  (require 'ada-xref)
  
  ;; ----- Buffer local variables -------------------------------------------
  
  (defvar ada-prj-current-values nil
!   "Hold the current value of the fields; this is a property list.")
  (make-variable-buffer-local 'ada-prj-current-values)
  
  (defvar ada-prj-default-values nil
!   "Hold the default value for the fields; this is a property list.")
  (make-variable-buffer-local 'ada-prj-default-values)
  
  (defvar ada-prj-ada-buffer nil
--- 38,57 ----
  
  ;; ----- Requirements -----------------------------------------------------
  
  (require 'cus-edit)
  (require 'ada-xref)
  
+ (eval-when-compile
+    (require 'ada-mode))
+ 
  ;; ----- Buffer local variables -------------------------------------------
  
  (defvar ada-prj-current-values nil
!   "Hold the current value of the fields, This is a property list.")
  (make-variable-buffer-local 'ada-prj-current-values)
  
  (defvar ada-prj-default-values nil
!   "Hold the default value for the fields, This is a property list.")
  (make-variable-buffer-local 'ada-prj-default-values)
  
  (defvar ada-prj-ada-buffer nil
***************
*** 245,251 ****
      (erase-buffer))
  
    ;;  Widget support in Emacs 21 requires that we clear the buffer first
!   (if (and (not ada-xemacs) (>= emacs-major-version 21))
        (progn
        (setq widget-field-new  nil
              widget-field-list nil)
--- 246,252 ----
      (erase-buffer))
  
    ;;  Widget support in Emacs 21 requires that we clear the buffer first
!   (if (and (not (featurep 'xemacs)) (>= emacs-major-version 21))
        (progn
        (setq widget-field-new  nil
              widget-field-list nil)