Re: Scroll down *Schell Command Output* buffer when output arrives

[Kevin Rodgers <kevin.rodgers@ihs.com>]

Jens Persson wrote:

> (defun csound-compile-curr-osc-sco ()
>   (interactive)
>   (shell-command (concat "csound -A -d -o test.aif "
>    (file-name-sans-extension (buffer-name)) ".orc "
>    (file-name-sans-extension (buffer-name)) ".sco"))
> )


That won't work if you happen to be visiting 2 files with the same name but
in different directories, which usually results in buffers named e.g. foo.bar
and foo.bar<2>.  I would write that as:

   (let* ((file (file-name-nondirectory buffer-file-name))
	 (sound (file-name-sans-extension file)))
     (shell-command (format "csound -A -d -o test.aif %s.orc %s.sco"
			   sound sound)))

-- 
<a href="mailto:&lt;kevin.rodgers&#64;ihs.com&gt;">Kevin Rodgers</a>