diff options
| author | Erik Naggum | 1995-10-09 03:11:29 +0000 |
|---|---|---|
| committer | Erik Naggum | 1995-10-09 03:11:29 +0000 |
| commit | dcf804a0a921a0bbc4d4747d9804bcf6b37036d8 (patch) | |
| tree | d70a0bc64bd3d4c097e507146276bb36bfa42668 | |
| parent | 927e08bef8a8053157822b36a34a8d6c401631ee (diff) | |
| download | emacs-dcf804a0a921a0bbc4d4747d9804bcf6b37036d8.tar.gz emacs-dcf804a0a921a0bbc4d4747d9804bcf6b37036d8.zip | |
(ada-gen-treat-proc): Bind `procname' and `functype'.
| -rw-r--r-- | lisp/progmodes/ada-mode.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el index d280b31ed46..13a3a7134d0 100644 --- a/lisp/progmodes/ada-mode.el +++ b/lisp/progmodes/ada-mode.el | |||
| @@ -3629,7 +3629,7 @@ This does a lot more highlighting.") | |||
| 3629 | ;; MATCH is a cons cell containing the start and end location of the | 3629 | ;; MATCH is a cons cell containing the start and end location of the |
| 3630 | ;; last search for ada-procedure-start-regexp. | 3630 | ;; last search for ada-procedure-start-regexp. |
| 3631 | (goto-char (car match)) | 3631 | (goto-char (car match)) |
| 3632 | (let (proc-found func-found) | 3632 | (let (proc-found func-found procname functype) |
| 3633 | (cond | 3633 | (cond |
| 3634 | ((or (setq proc-found (looking-at "^[ \t]*procedure")) | 3634 | ((or (setq proc-found (looking-at "^[ \t]*procedure")) |
| 3635 | (setq func-found (looking-at "^[ \t]*function"))) | 3635 | (setq func-found (looking-at "^[ \t]*function"))) |