Function: verilog-forward-close-paren

verilog-forward-close-paren is a byte-compiled function defined in verilog-mode.el.gz.

Signature

(verilog-forward-close-paren)

Documentation

Find the close parenthesis that match the current point.

Ignore other close parenthesis with matching open parens.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/verilog-mode.el.gz
(defun verilog-forward-close-paren ()
  "Find the close parenthesis that match the current point.
Ignore other close parenthesis with matching open parens."
  (let ((parens 1))
    (while (> parens 0)
      (unless (verilog-re-search-forward-quick "[()]" nil t)
	(error "%s: Mismatching ()" (verilog-point-text)))
      (cond ((= (preceding-char) ?\( )
	     (setq parens (1+ parens)))
	    ((= (preceding-char) ?\) )
	     (setq parens (1- parens)))))))