From: Glenn Morris Date: Thu, 15 Apr 2010 17:14:10 +0000 (-0700) Subject: * progmodes/verilog-mode.el (verilog-forward-sexp): Avoid free variable. X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~507 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=82883f0a8e11bd4cf01321d51bc62df0d6a96d21;p=emacs.git * progmodes/verilog-mode.el (verilog-forward-sexp): Avoid free variable. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f3fd06f1220..4fe7bdca807 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2010-04-15 Glenn Morris + + * progmodes/verilog-mode.el (verilog-forward-sexp): Avoid free variable. + 2010-04-15 Juanma Barranquero Simplify by using `define-derived-mode'. diff --git a/lisp/progmodes/verilog-mode.el b/lisp/progmodes/verilog-mode.el index 05ce36c56d2..1ec5ab90ac7 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