(ada-83-string-keywords, ada-95-string-keywords, ada-2005-string-keywords):

Restore `eval-when-compile'.  It wasn't that unneeded after all.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f5e35060499dfb539e23c0b7e562d358643c730f..26dc12899b9cc3c6622b0384be360d2de2e32d9a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,49 @@
+2006-11-12  Stephen Leake  <stephen_leake@stephe-leake.org>
+
+       * progmodes/ada-xref.el (ada-prj-default-check-cmd): New variable,
+       replacing deleted variable `ada-check-switch'.
+       (ada-project-file-extension): Rename to `ada-prj-file-extension'.
+       (ada-xref-project-files): Improve doc string.
+       (ada-find-executable): New function.
+       (ada-initialize-runtime-library): Use `ada-find-executable'.
+       (ada-xref-set-default-prj-values): In compile commands, don't need
+       `ada-cd-command'; `compile' does that more portably.
+       Use ada-prj-default-check-cmd.
+       (ada-parse-prj-file): Don't set 'debug_post_cmd, 'debug_pre_cmd
+       properties if not specified in project file.
+       (ada-goto-declaration): Display useful message for new error
+       'error-file-not-found.
+       (ada-get-ada-file-name, ada-find-in-src-path): Signal new error
+       'error-file-not-found.
+       (ada-get-all-references): Match latest ali syntax.  Signal new
+       error 'error-file-not-found.
+       (ada-find-in-ali): Match latest ali syntax.
+       (ada-make-filename-from-adaname): Handle different semantics of
+       gnatkr in GNAT 3.15p vs later.
+
+       * progmodes/ada-stmt.el (ada-func-or-proc-name): Match changes to
+       ada-procedure-start-regexp.
+       (ada-or-accept, ada-or-delay, ada-or-terminate): Improve doc string.
+
+       * progmodes/ada-mode.el: Replace conditional (require 'ispell)
+       with defvar.
+       (ada-language-version): Rename ada05 -> ada2005.
+       (ada-align-region-separate): Add `eval-when-compile'.
+       (ada-name-regexp): Remove unneeded escapes in regexp character
+       alternative.
+       (ada-compile-goto-error-file-linenr-re): New constant.
+       (ada-matching-start-re): Handle additional cases `declare',
+       `procedure', `function'.
+       (ada-compile-goto-error): Handle "... at line nn".
+       (ada-mode): Clearer syntax, comments for ff-special-constructs.
+       Delete support for old versions of `align'.
+       (ada-search-prev-end-stmt): Handle additional keyword `private'.
+       (ada-check-defun-name): Simplify handling of `declare'.
+       (ada-goto-matching-start): Handle nested `begin ... end'. Handle
+       `declare', `protected', `procedure', `function'.
+       (ada-create-menu): Presence of arm95 is not conditional on using
+       GNAT compiler.
+
 2006-11-12  Juanma Barranquero  <lekktu@gmail.com>
 
        * emacs-lisp/re-builder.el (reb-mode): Set `blink-matching-paren' to

diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el
index b47d167661b9d0ca534c2611a61801737d3298c4..2ca978b5c09402b8c882d6e9f4b01fd16997a15a 100644 (file)
--- a/lisp/progmodes/ada-mode.el
+++ b/lisp/progmodes/ada-mode.el
@@ -471,27 +471,28 @@ The extensions should include a `.' if needed.")
 (defvar ada-mode-symbol-syntax-table nil
   "Syntax table for Ada, where `_' is a word constituent.")
 
-(defconst ada-83-string-keywords
-  '("abort" "abs" "accept" "access" "all" "and" "array" "at" "begin"
-    "body" "case" "constant" "declare" "delay" "delta" "digits" "do"
-    "else" "elsif" "end" "entry" "exception" "exit" "for" "function"
-    "generic" "goto" "if" "in" "is" "limited" "loop" "mod" "new"
-    "not" "null" "of" "or" "others" "out" "package" "pragma" "private"
-    "procedure" "raise" "range" "record" "rem" "renames" "return"
-    "reverse" "select" "separate" "subtype" "task" "terminate" "then"
-    "type" "use" "when" "while" "with" "xor")
-  "List of Ada 83 keywords.
+(eval-when-compile
+  (defconst ada-83-string-keywords
+    '("abort" "abs" "accept" "access" "all" "and" "array" "at" "begin"
+      "body" "case" "constant" "declare" "delay" "delta" "digits" "do"
+      "else" "elsif" "end" "entry" "exception" "exit" "for" "function"
+      "generic" "goto" "if" "in" "is" "limited" "loop" "mod" "new"
+      "not" "null" "of" "or" "others" "out" "package" "pragma" "private"
+      "procedure" "raise" "range" "record" "rem" "renames" "return"
+      "reverse" "select" "separate" "subtype" "task" "terminate" "then"
+      "type" "use" "when" "while" "with" "xor")
+    "List of Ada 83 keywords.
 Used to define `ada-*-keywords'.")
 
-(defconst ada-95-string-keywords
-  '("abstract" "aliased" "protected" "requeue" "tagged" "until")
-  "List of keywords new in Ada 95.
+  (defconst ada-95-string-keywords
+    '("abstract" "aliased" "protected" "requeue" "tagged" "until")
+    "List of keywords new in Ada 95.
 Used to define `ada-*-keywords'.")
 
-(defconst ada-2005-string-keywords
-  '("interface" "overriding" "synchronized")
-  "List of keywords new in Ada 2005.
-Used to define `ada-*-keywords.'")
+  (defconst ada-2005-string-keywords
+    '("interface" "overriding" "synchronized")
+    "List of keywords new in Ada 2005.
+Used to define `ada-*-keywords.'"))
 
 (defvar ada-ret-binding nil
   "Variable to save key binding of RET when casing is activated.")