 	       (setq eci-cs-selected (eci-command "cs-selected"
 						  buffer-or-process)))))
     (if (interactive-p)
-	(message (format "Selected chainsetup: %s" val)))
+	(message "Selected chainsetup: %s" val))
     val))
 
+(defeci cs-set-position
+  ((pos
+    (if current-prefix-arg
+	(prefix-numeric-value current-prefix-arg)
+      (read-minibuffer "Position: ")) "%f"))
+  "Sets the chainsetup position to POS seconds from the beginning.
+Position of all inputs and outputs attached to the selected chainsetup is also
+affected."
+  :alias (cs-setpos setpos set-position))
+  
 (defeci cs-status)
 
 (defeci c-add ((chains "sChain(s) to add: " "%s"))

  :alias (cs-getpos getpos get-position))

(defeci cs-index-select ((index "nChainsetup index: " "%d"))
  ""
  :alias cs-iselect)

(defeci cs-is-valid ()

  :type 'number)

(defcustom ecasound-mode-line-format
  (unless (featurep 'xemacs) ;; mode-line-format seems to differ quite a lot
    '("-"
      mode-line-frame-identification
      mode-line-buffer-identification
      eci-engine-status " "
      ecasound-mode-string
      " %[("
      (:eval (mode-line-mode-name))
      mode-line-process
      minor-mode-alist
      "%n"
      ")%]--"
      (line-number-mode "L%l--")
      (column-number-mode "C%c--")
      (-3 . "%p")
      "-%-"))
  "*Mode Line Format used in `ecasound-iam-mode'."
  :group 'ecasound
  :type '(repeat
