diff options
| author | Miles Bader <miles@gnu.org> | 2006-11-07 23:22:48 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2006-11-07 23:22:48 +0000 |
| commit | dbc3b08c405a7b1c0ddb0fb0c98164b355802af5 (patch) | |
| tree | 00c6f28244409d14bec11e221fb3c03daef63fc6 /lisp/progmodes/ada-stmt.el | |
| parent | bbb6e8f2b6037dc1ee4ddd6cb63a1a6ddb04a591 (diff) | |
| parent | 86cb14475e9e76f0b3323d2e7110a4a2bd310cdb (diff) | |
| download | emacs-dbc3b08c405a7b1c0ddb0fb0c98164b355802af5.tar.gz emacs-dbc3b08c405a7b1c0ddb0fb0c98164b355802af5.tar.bz2 emacs-dbc3b08c405a7b1c0ddb0fb0c98164b355802af5.zip | |
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 490-504)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 161-163)
- Update from CVS
- Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-130
Diffstat (limited to 'lisp/progmodes/ada-stmt.el')
| -rw-r--r-- | lisp/progmodes/ada-stmt.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/progmodes/ada-stmt.el b/lisp/progmodes/ada-stmt.el index 525b53c2146..27a6eb66be0 100644 --- a/lisp/progmodes/ada-stmt.el +++ b/lisp/progmodes/ada-stmt.el @@ -6,9 +6,8 @@ ;; This file is part of GNU Emacs. ;; Authors: Daniel Pfeiffer, Markus Heritsch, Rolf Ebert <ebert@waporo.muc.de> -;; Maintainer: Emmanuel Briot <briot@gnat.com> +;; Maintainer: Stephen Leake <stephen_leake@stephe-leake.org> ;; Keywords: languages, ada -;; Rolf Ebert's version: 2.26 ;;; Commentary: ;; This file is now automatically loaded from ada-mode.el, and creates a submenu @@ -64,7 +63,7 @@ (require 'ada-mode) (defun ada-func-or-proc-name () - ;; Get the name of the current function or procedure." + "Return the name of the current function or procedure." (save-excursion (let ((case-fold-search t)) (if (re-search-backward ada-procedure-start-regexp nil t) @@ -305,7 +304,7 @@ Invoke right after `ada-function-spec' or `ada-procedure-spec'." (backward-char 1) (forward-sexp 1))) (if (looking-at ";") - (delete-char 1))) + (delete-char 1))) " is" \n _ \n < "begin" \n |