diff options
| author | Glenn Morris <rgm@gnu.org> | 2010-04-15 10:14:10 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2010-04-15 10:14:10 -0700 |
| commit | 82883f0a8e11bd4cf01321d51bc62df0d6a96d21 (patch) | |
| tree | b8383798c26cc7b2e138002f4f4a6bab452f1dcb | |
| parent | ed21c5c84c131607c3ccf43e2d14cea60cc3fe40 (diff) | |
* progmodes/verilog-mode.el (verilog-forward-sexp): Avoid free variable.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/progmodes/verilog-mode.el | 7 |
2 files changed, 8 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f3fd06f122..4fe7bdca80 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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 --git a/lisp/progmodes/verilog-mode.el b/lisp/progmodes/verilog-mode.el index 05ce36c56d..1ec5ab90ac 100644 --- a/lisp/progmodes/verilog-mode.el +++ b/lisp/progmodes/verilog-mode.el @@ -2611,7 +2611,7 @@ Use filename, if current buffer being edited shorten to just buffer name." (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 @@ Use filename, if current buffer being edited shorten to just buffer name." (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 @@ Use filename, if current buffer being edited shorten to just buffer name." ((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 |