Re: [ecasound] ecasound.el problems. Fixed bug!

Hi David,

thanks for the patch!

Mario, if you have time, could take a look at this? Should I just commit
the patch directly to the CVS and bump the version (currently 0.8.3 of
ecasound.el), or...?

Patch below...

On Tue, 23 Jan 2007, David O'Toole wrote:

>
> I did a little snooping into ecasound.el and it seems I've fixed the
> bug all by myself!
>
> The problem was a blank line at the end of the output of eci-map-xxx
> functions.
>
> This prevented me from interactively adding chain ops from
> within emacs because it hit an error when trying to build the
> plugin-name completion-list.
>
> But now it works. As you can see below, I just had to modify
> eci-process-map-list.
>
> -------------------------------------------
> (defun eci-process-map-list (string)
> "Parse the output of a map-xxx-list ECI command and return an alist.
> STRING is the string returned by a map-xxx-list command."
> (delq nil
> (mapcar
> (lambda (elt)
> (when (stringp (nth 3 elt))
> (append
> (list (nth 1 elt) (nth 0 elt) (nth 2 elt))
> (let (res (count (string-to-number (nth 3 elt))))
> (setq elt (nthcdr 4 elt))
> (while (> count 0)
> (setq
> res
> (cons
> (list (nth 0 elt) (nth 1 elt)
> (string-to-number (nth 2 elt)) ;; default value
> (when (string= (nth 3 elt) "1")
> (string-to-number (nth 4 elt)))
> (when (string= (nth 5 elt) "1")
> (string-to-number (nth 6 elt)))
> (cond
> ((string= (nth 7 elt) "1")
> 'toggle)
> ((string= (nth 8 elt) "1")
> 'integer)
> ((string= (nth 9 elt) "1")
> 'logarithmic)
> ((string= (nth 10 elt) "1")
> 'output))) res)
> elt (nthcdr 11 elt)
> count (1- count)))
> (reverse res)))))
> (mapcar (lambda (str) (split-string str ","))
> (split-string string "\n")))))
>
>

-- 
  links, my public keys, etc at http://eca.cx/kv
-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys - and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
Ecasound-list mailing list
Ecasound-list@email-addr-hidden
https://lists.sourceforge.net/lists/listinfo/ecasound-list