[Emacs-diffs] /srv/bzr/emacs/trunk r99907: * progmodes/verilog-mode.el (verilog-forward-sexp): Avoid free variable.

[Glenn Morris]

------------------------------------------------------------
revno: 99907
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Thu 2010-04-15 10:14:10 -0700
message:
  * progmodes/verilog-mode.el (verilog-forward-sexp): Avoid free variable.
modified:
  lisp/ChangeLog
  lisp/progmodes/verilog-mode.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-04-15 01:12:20 +0000
+++ b/lisp/ChangeLog    2010-04-15 17:14:10 +0000
@@ -1,3 +1,7 @@
+2010-04-15  Glenn Morris  <address@hidden>
+
+       * progmodes/verilog-mode.el (verilog-forward-sexp): Avoid free variable.
+
 2010-04-15  Juanma Barranquero  <address@hidden>
 
        Simplify by using `define-derived-mode'.

=== modified file 'lisp/progmodes/verilog-mode.el'
--- a/lisp/progmodes/verilog-mode.el    2010-04-07 04:06:23 +0000
+++ b/lisp/progmodes/verilog-mode.el    2010-04-15 17:14:10 +0000
@@ -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