[CM] shortcut

[Rick Taube]

nothing like using a sledge hammer!
you can probably do the same thing for portmidi, but you may get 
hanging notes.

i guess your function could implmeent something like

	(progn (close-midi) (open-midi) (send-all-notes-off) )

at some point I will look at the issue about writing files with rts 
running, this has been raised before. it not an easy fix.


>> ;; put this in your .emacs file
>> (global-set-key (kbd "<f6>") 'slime-hush)
>> (defun slime-hush ()
>>   (interactive )
>>   (slime-interactive-eval "(if (rts?) (rts-hush))"))
>
> thanks for your help.
> i have now tried the following, and it seems to
> work:
>
> (global-set-key (kbd "<f6>") 'kbd-ms-close)
> (defun kbd-ms-close ()
>   (interactive )
>   (slime-interactive-eval "(midishare-close)"))
>
> i think this is better for me than rts, because i
> work with midi-files for sibelius and midi at the
> same time.
>
> johannes
>
> _________________________
>
> Johannes Quint
> Rilkestr.55
> D-53225 Bonn
> 0228 468256
> johannes.quint at web.de
> http://www.johannes-quint.de
>
>