tm 7.100.2.

[elisp/tm.git] / methods / tm-au

diff --git a/methods/tm-au b/methods/tm-au
index ae38d8e..d6b47ec 100755 (executable)
--- a/methods/tm-au
+++ b/methods/tm-au
@@ -1,6 +1,6 @@
 #!/bin/sh -
 #
-# $Id: tm-au,v 3.2 1996/03/25 12:35:55 morioka Exp $
+# $Id: tm-au,v 3.4 1996/12/27 20:14:12 morioka Exp $
 #
 
 if [ "$TM_TMP_DIR" = "" ]; then
@@ -18,19 +18,17 @@ fi
 case "$4" in
 "play")
        echo "$2; $3 ->"
+       tmdecode $3 $1 $filename
        if [ "$AUDIOSERVER" = "" ]; then
                if [ `uname` = "IRIX" ]; then
-                       tmdecode $3 $1 $filename
                        sfplay $filename
-                       trap 'rm -f $filename' 0 1 2 3 13 15
                else
-                       tmdecode $3 $1 /dev/audio
+                       cat $filename > /dev/audio
                fi
        else
-               tmdecode $3 $1 $filename
                autool -v 40 $filename
-               trap 'rm -f $filename' 0 1 2 3 13 15
        fi
+       trap 'rm -f $filename' 0 1 2 3 13 15
        ;;
 "extract")
        echo "$2; $3 -> $filename"