Function: verilog-in-fork-region-p

verilog-in-fork-region-p is an interactive and byte-compiled function defined in verilog-mode.el.gz.

Signature

(verilog-in-fork-region-p)

Documentation

Return non-nil if between a fork and join.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/verilog-mode.el.gz
    (= nest 0) )) ; return nest

(defun verilog-in-fork-region-p ()
  "Return non-nil if between a fork and join."
  (interactive)
  (let ((lim (save-excursion (verilog-re-search-backward verilog-defun-re nil 'move)  (point)))
	(nest 1))
    (save-excursion
      (while (and
	      (/= nest 0)
	      (verilog-re-search-backward "\\<\\(?:\\(fork\\)\\|\\(join\\(_any\\|_none\\)?\\)\\)\\>" lim 'move)
	      (cond
	       ((match-end 1) ; fork
		(setq nest (1- nest)))
	       ((match-end 2) ; join
		(setq nest (1+ nest)))))))
    (= nest 0) )) ; return nest