Mercurial > emacs
changeset 107865:8fb2953d73a1
* progmodes/verilog-mode.el (verilog-forward-sexp): Avoid free variable.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Thu, 15 Apr 2010 10:14:10 -0700 |
| parents | 805a52720f82 |
| children | afb992a317bd |
| files | lisp/ChangeLog lisp/progmodes/verilog-mode.el |
| diffstat | 2 files changed, 8 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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'.
--- 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