Function: verilog-backward-open-paren

verilog-backward-open-paren is a byte-compiled function defined in verilog-mode.el.gz.

Signature

(verilog-backward-open-paren)

Documentation

Find the open parenthesis that match the current point.

Ignore other open parenthesis with matching close parens.

Source Code

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