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

[Kevin Rodgers]

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>