      "sync_reject_on" "unique0" "until" "until_with" "untyped" "weak"
      ;; 1800-2012
      "implements" "interconnect" "nettype" "soft"
-     )
+     ))
   "List of Verilog keywords.")
 
 (defconst verilog-comment-start-regexp "//\\|/\\*"

	  (eval-region beg-pt end-pt nil))))))

(defun verilog-read-always-signals-recurse
    (exit-keywd rvalue temp-next)
  "Recursive routine for parentheses/bracket matching.
EXIT-KEYWD is expression to stop at, nil if top level.
RVALUE is true if at right hand side of equal.

  (if (not (file-exists-p f1))
      (message "Buffer %s has no associated file on disc" (buffer-name b2))
    (with-temp-buffer "*Verilog-Diff*"
      (let ((outbuf (current-buffer))
	    (f2 (make-temp-file "vm-diff-auto-")))
	(unwind-protect
	    (progn
	      (with-current-buffer b2
		(save-restriction
		  (widen)
		  (write-region (point-min) (point-max) f2 nil 'nomessage)))
	      (call-process diff-command nil outbuf t
			    diff-switches ;; User may want -u in diff-switches
			    (if whitespace "-b" "")
			    f1 f2)
	      ;; Print out results.  Alternatively we could have call-processed
	      ;; ourself, but this way we can reuse diff switches
	      (when show
		(with-current-buffer outbuf (message "%s" (buffer-string))))))
	(sit-for 0)
	(when (file-exists-p f2)
	  (delete-file f2))))))

(defun verilog-diff-report (b1 b2 diffpt)
  "Report differences detected with `verilog-diff-auto'.
