From: Juanma Barranquero <lekktu@gmail.com>
Date: Sun, 12 Nov 2006 16:56:53 +0000 (+0000)
Subject: (ada-func-or-proc-name): Match changes to ada-procedure-start-regexp.
X-Git-Tag: emacs-pretest-22.0.91~123
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/3b5b1ad923aba876809951734ee0a0ab353ad346

(ada-func-or-proc-name): Match changes to ada-procedure-start-regexp.
(ada-or-accept, ada-or-delay, ada-or-terminate): Improve doc string.
---

diff --git a/lisp/progmodes/ada-stmt.el b/lisp/progmodes/ada-stmt.el
index 27a6eb66be..fa6c680779 100644
--- a/lisp/progmodes/ada-stmt.el
+++ b/lisp/progmodes/ada-stmt.el
@@ -67,7 +67,7 @@
   (save-excursion
     (let ((case-fold-search t))
       (if (re-search-backward ada-procedure-start-regexp nil t)
-	  (buffer-substring (match-beginning 3) (match-end 3))
+	  (match-string 5)
 	"NAME?"))))
 
 ;;; ---- statement skeletons ------------------------------------------
@@ -445,21 +445,21 @@ Invoke right after `ada-function-spec' or `ada-procedure-spec'."
 
 
 (define-skeleton ada-or-accept
-  "Insert an or statement, prompting for the condition name."
+  "Insert an accept alternative, prompting for the condition name."
   ()
   < "or\n"
   (ada-accept))
 
 
 (define-skeleton ada-or-delay
-  "Insert a delay statement, prompting for the delay value."
+  "Insert a delay alternative, prompting for the delay value."
   "[delay value]: "
   < "or\n"
   > "delay " str ";")
 
 
 (define-skeleton ada-or-terminate
-  "Insert a terminate statement."
+  "Insert a terminate alternative."
   ()
   < "or\n"
   > "terminate;")