# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1271351650 25200
# Node ID 8fb2953d73a12b96567891d734b2ac74692141fb
# Parent  805a52720f82f6a7ae87bd6a96e0fd630c29b3e0
* progmodes/verilog-mode.el (verilog-forward-sexp): Avoid free variable.

diff -r 805a52720f82 -r 8fb2953d73a1 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Apr 15 12:13:27 2010 +0200
+++ b/lisp/ChangeLog	Thu Apr 15 10:14:10 2010 -0700
@@ -1,3 +1,7 @@
+2010-04-15  Glenn Morris  <rgm@gnu.org>
+
+	* progmodes/verilog-mode.el (verilog-forward-sexp): Avoid free variable.
+
 2010-04-15  Juanma Barranquero  <lekktu@gmail.com>
 
 	Simplify by using `define-derived-mode'.
diff -r 805a52720f82 -r 8fb2953d73a1 lisp/progmodes/verilog-mode.el
--- a/lisp/progmodes/verilog-mode.el	Thu Apr 15 12:13:27 2010 +0200
+++ b/lisp/progmodes/verilog-mode.el	Thu Apr 15 10:14:10 2010 -0700
@@ -2611,7 +2611,7 @@
 	    (if (or
 		 (looking-at verilog-disable-fork-re)
 		 (and (looking-at "fork")
-		      (progn 
+		      (progn
 			(setq here (point)) ;; sometimes a fork is just a fork
 			(forward-word -1)
 			(looking-at verilog-disable-fork-re))))
@@ -2670,7 +2670,8 @@
 	       (forward-word 1))
 	  (catch 'skip
 	    (if (eq nest 'yes)
-		(let ((depth 1))
+		(let ((depth 1)
+		      here)
 		  (while (verilog-re-search-forward reg nil 'move)
 		    (cond
 		     ((match-end md) ; a closer in regular expression, so we are climbing out
@@ -2686,7 +2687,7 @@
 		       ((if (or
 			     (looking-at verilog-disable-fork-re)
 			     (and (looking-at "fork")
-				  (progn 
+				  (progn
 				    (forward-word -1)
 				    (looking-at verilog-disable-fork-re))))
 			    (progn ;; it is a disable fork; another false alarm