# HG changeset patch
# User Erik Naggum <erik@naggum.no>
# Date 813208289 0
# Node ID 1b2a4a45f0896ec6e62f7d39ee50ceebfc80a8b3
# Parent  2af96ac471bc00636c83a0a85e941ba21cda9dab
(ada-gen-treat-proc): Bind `procname' and `functype'.

diff -r 2af96ac471bc -r 1b2a4a45f089 lisp/progmodes/ada-mode.el
--- 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")))