diff options
| author | Juanma Barranquero <[email protected]> | 2008-10-12 23:06:29 +0000 |
|---|---|---|
| committer | Juanma Barranquero <[email protected]> | 2008-10-12 23:06:29 +0000 |
| commit | dd4fdc44b1143f7959439eecb00d3a79c471a962 (patch) | |
| tree | c9e0c3e750a900087a5b5b337edba641652074ff /lisp/progmodes/ada-xref.el | |
| parent | f6c2397a8584597b92d292b32fe254299216ab05 (diff) | |
* progmodes/ada-mode.el (ada-get-indent-end, ada-goto-matching-start):
Add support for extended return statement.
* progmodes/ada-xref.el (ada-gnat-parse-gpr): Don't reverse src-dir
and obj-dir; keep user order.
Diffstat (limited to 'lisp/progmodes/ada-xref.el')
| -rw-r--r-- | lisp/progmodes/ada-xref.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/ada-xref.el b/lisp/progmodes/ada-xref.el index d38795658c..1628f461b6 100644 --- a/lisp/progmodes/ada-xref.el +++ b/lisp/progmodes/ada-xref.el @@ -406,8 +406,8 @@ Assumes environment variable ADA_PROJECT_PATH is set properly." ;; Set properties (setq plist (plist-put plist 'gpr_file gpr-file)) - (setq plist (plist-put plist 'src_dir (reverse src-dir))) - (plist-put plist 'obj_dir (reverse obj-dir)) + (setq plist (plist-put plist 'src_dir src-dir)) + (plist-put plist 'obj_dir obj-dir) ) (kill-buffer nil) (message "Parsing %s ... done" gpr-file) |