From 3b5b1ad923aba876809951734ee0a0ab353ad346 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Sun, 12 Nov 2006 16:56:53 +0000 Subject: [PATCH] (ada-func-or-proc-name): Match changes to ada-procedure-start-regexp. (ada-or-accept, ada-or-delay, ada-or-terminate): Improve doc string. --- lisp/progmodes/ada-stmt.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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;") -- 2.39.2