Commit dcf804a0 authored by Erik Naggum's avatar Erik Naggum
Browse files

(ada-gen-treat-proc): Bind `procname' and `functype'.

parent 927e08be
......@@ -3629,7 +3629,7 @@ This does a lot more highlighting.")
;; 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")))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment