diff options
author | Juanma Barranquero <lekktu@gmail.com> | 2006-11-12 16:56:53 +0000 |
---|---|---|
committer | Juanma Barranquero <lekktu@gmail.com> | 2006-11-12 16:56:53 +0000 |
commit | 12a3c806192cdb1f8b71a3299f96eef01e75c0e1 (patch) | |
tree | 2f1f82b833d8bd9e2762c63f4c696da4cfd46a06 /lisp | |
parent | ff0bbbbb0b4b62c4ab6bbbfe0b132c3c62cf2488 (diff) | |
download | emacs-12a3c806192cdb1f8b71a3299f96eef01e75c0e1.tar.gz |
(ada-func-or-proc-name): Match changes to ada-procedure-start-regexp.
(ada-or-accept, ada-or-delay, ada-or-terminate): Improve doc string.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/progmodes/ada-stmt.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/progmodes/ada-stmt.el b/lisp/progmodes/ada-stmt.el index 27a6eb66be0..fa6c680779a 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;") |