Mercurial > emacs
changeset 13160:1b2a4a45f089
(ada-gen-treat-proc): Bind `procname' and `functype'.
| author | Erik Naggum <erik@naggum.no> |
|---|---|
| date | Mon, 09 Oct 1995 03:11:29 +0000 |
| parents | 2af96ac471bc |
| children | 4056f3c1cbfc |
| files | lisp/progmodes/ada-mode.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/ada-mode.el Mon Oct 09 00:31:24 1995 +0000 +++ b/lisp/progmodes/ada-mode.el Mon Oct 09 03:11:29 1995 +0000 @@ -3629,7 +3629,7 @@ ;; MATCH is a cons cell containing the start and end location of the ;; last search for ada-procedure-start-regexp. (goto-char (car match)) - (let (proc-found func-found) + (let (proc-found func-found procname functype) (cond ((or (setq proc-found (looking-at "^[ \t]*procedure")) (setq func-found (looking-at "^[ \t]*function")))