From dcf804a0a921a0bbc4d4747d9804bcf6b37036d8 Mon Sep 17 00:00:00 2001 From: Erik Naggum Date: Mon, 9 Oct 1995 03:11:29 +0000 Subject: [PATCH] (ada-gen-treat-proc): Bind `procname' and `functype'. --- lisp/progmodes/ada-mode.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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.") ;; 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"))) -- 2.39.2