# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1223852789 0
# Node ID bde81f3667cde57c5ec8ab35653fff6a1ee62a73
# Parent  a3c0dcf1e9502acd75a05654635591d3e2efcfd8
* 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.

diff -r a3c0dcf1e950 -r bde81f3667cd lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Oct 12 22:46:38 2008 +0000
+++ b/lisp/ChangeLog	Sun Oct 12 23:06:29 2008 +0000
@@ -1,3 +1,11 @@
+2008-10-12  Stephen Leake  <stephen_leake@member.fsf.org>
+
+	* 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.
+
 2008-10-12  Glenn Morris  <rgm@gnu.org>
 
 	* Makefile.in (ELCFILES): Update.
diff -r a3c0dcf1e950 -r bde81f3667cd lisp/progmodes/ada-mode.el
--- a/lisp/progmodes/ada-mode.el	Sun Oct 12 22:46:38 2008 +0000
+++ b/lisp/progmodes/ada-mode.el	Sun Oct 12 23:06:29 2008 +0000
@@ -2840,12 +2840,15 @@
 	  (forward-word 1)
 	  (ada-goto-next-non-ws)
 	  (cond
-	   ((looking-at "\\<\\(loop\\|select\\|if\\|case\\)\\>")
+	   ;;
+	   ;; loop/select/if/case/return
+	   ;;
+	   ((looking-at "\\<\\(loop\\|select\\|if\\|case\\|return\\)\\>")
 	    (save-excursion (ada-check-matching-start (match-string 0)))
 	    (list (save-excursion (back-to-indentation) (point)) 0))
 
 	   ;;
-	   ;; loop/select/if/case/record/select
+	   ;; record
 	   ;;
 	   ((looking-at "\\<record\\>")
 	    (save-excursion
@@ -3897,13 +3900,12 @@
 	      (goto-char (match-beginning 0)))
 
 	     ;;
-	     ;; found 'do' => skip back to 'accept'
+	     ;; found 'do' => skip back to 'accept' or 'return'
 	     ;;
 	     ((looking-at "do")
 	      (unless (ada-search-ignore-string-comment
-		       "accept" t nil nil
-		       'word-search-backward)
-		(error "Missing 'accept' in front of 'do'"))))
+		       "\\<accept\\|return\\>" t)
+		(error "Missing 'accept' or 'return' in front of 'do'"))))
 	    (point))
 
 	(if noerror
diff -r a3c0dcf1e950 -r bde81f3667cd lisp/progmodes/ada-xref.el
--- a/lisp/progmodes/ada-xref.el	Sun Oct 12 22:46:38 2008 +0000
+++ b/lisp/progmodes/ada-xref.el	Sun Oct 12 23:06:29 2008 +0000
@@ -406,8 +406,8 @@
 
 	  ;; 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)