   :value-create 'widget-slider-value-create
   :value-delete 'ignore
   :value-get 'widget-value-value-get
-  :size 70)
+  :size 70
   :value 0)
 
 (defun widget-slider-press (pos &optional event)

    (if (and (= pcomplete-last 2)
             (string= (pcomplete-arg) "-el"))
            (progn (pcomplete-next-arg)
                   (pcomplete-here (mapcar (lambda (elt) (nth 1 elt))
                                           eci-ladspa-register)))
      (if (and (string= (pcomplete-arg) "-el")
               (> pcomplete-last 2))
              (let* ((args (eci-register-find-arg (pcomplete-arg -1)

  (when (null buffer)
    (setq buffer "*ecasound*"))
  (if (not (comint-check-proc buffer))
      (pop-to-buffer
       (save-excursion
         (set-buffer
          (apply 'make-comint-in-buffer
                 "ecasound" buffer
                 ecasound-program
                 nil
                 (if (member* "^-d" ecasound-arguments :test #'string-match)
                     ecasound-arguments
                   (cons (format "-d:%d" (apply #'+ ecasound-messages))
                         ecasound-arguments))))
         (ecasound-iam-mode)
         (while (accept-process-output
                 (get-buffer-process (current-buffer))
                 1))
         (if (not (eq (eci-command "int-output-mode-wellformed") t))
             (message "Failed to initialize properly"))
         (current-buffer)))
    (pop-to-buffer buffer)))

(defun ecasound-delete-last-in-and-output ()
