mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

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

Browse Source 
Restore `eval-when-compile'.  It wasn't that unneeded after all.
This commit is contained in:
Juanma Barranquero 2006-11-12 17:13:54 +00:00
parent 0262d5e1f4
commit 1d424b5859
2 changed files with 64 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
lisp/ChangeLog
View File

@ -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

35
lisp/progmodes/ada-mode.el
View File

@ -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.")