 
 
 (define-skeleton verilog-sk-prompt-state-selector
-    "Prompt for the name of a state machine selector."
+  "Prompt for the name of a state machine selector."
   "name of selector (eg {a,b,c,d}): " str )
 
 (define-skeleton verilog-sk-prompt-output
-    "Prompt for the name of something."
+  "Prompt for the name of something."
   "output: " str)
 
 (define-skeleton verilog-sk-prompt-msb
-    "Prompt for most significant bit specification."
+  "Prompt for most significant bit specification."
   "msb:" str & ?: & '(verilog-sk-prompt-lsb) | -1 )
 
 (define-skeleton verilog-sk-prompt-lsb
-    "Prompt for least significant bit specification."
+  "Prompt for least significant bit specification."
   "lsb:" str )
 
 (defvar verilog-sk-p nil)
 (define-skeleton verilog-sk-prompt-width
-    "Prompt for a width specification."
+  "Prompt for a width specification."
   ()
   (progn
     (setq verilog-sk-p (point))

		      (verilog-forward-syntactic-ws)
		      (setq here (point))
		      (looking-at verilog-declaration-re))))
         (indent-line-to val)
         (if decl
             (verilog-pretty-declarations-auto))))

      (;-- Handle the ends
       (or
        (looking-at verilog-end-block-re)
        (verilog-at-close-constraint-p)
        (verilog-at-close-struct-p))
       (let ((val (if (eq type 'statement)
                      (- ind verilog-indent-level)
                    ind)))
         (indent-line-to val)))

      (;-- Case -- maybe line 'em up
       (and (eq type 'case) (not (looking-at "^[ \t]*$")))
       (progn
         (cond
           ((looking-at "\\<endcase\\>")
            (indent-line-to ind))
           (t
            (let ((val (eval (cdr (assoc type verilog-indent-alist)))))
              (indent-line-to val))))))

      (;-- defun
       (and (eq type 'defun)
            (looking-at verilog-zero-indent-re))
       (indent-line-to 0))

      (;-- declaration
       (and (or
             (eq type 'defun)
             (eq type 'block))
            (looking-at verilog-declaration-re))
       (verilog-indent-declaration ind))

      (;-- form feeds - ignored as bug in indent-line-to in < 24.5
       (looking-at "\f"))

      (;-- Everything else
       t
       (let ((val (eval (cdr (assoc type verilog-indent-alist)))))
         (indent-line-to val))))

    (if (looking-at "[ \t]+$")
	(skip-chars-forward " \t"))

    (save-excursion
      (verilog-re-search-backward "\\((\\*\\)\\|\\(\\*)\\)" nil 'move)
      (cond
       ((match-end 1)
        (progn (goto-char (match-end 1))
               (not (looking-at "\\s-*)")))
        nil)
       ((match-end 2)
        (progn (goto-char (match-beginning 2))
               (not (looking-at "(\\s-*")))
        nil)
       (t nil)))))

(defun verilog-in-parameter-p ()
  "Return true if point is in a parameter assignment #( p1=1, p2=5)."
