Commits

Anonymous committed bf535c9

make advocacy.el work with MS Windows sound

  • Participants
  • Parent commits b83773b

Comments (0)

Files changed (3)

+1999-03-04  Adrian Aichner  <aichner@ecf.teradyne.com>
+
+	* advocacy.el (xemacs-praise-sound-file): Initialize correctly for
+	'mswindows.
+	(praise-be-unto-xemacs): Play sound first, then sit around for
+	sound to finish.
+
 1998-03-22  SL Baur  <steve@altair.xemacs.org>
 
 	* morse.el and (broken) rot13.el: imported from FSF Emacs 20.2.
 
 # This XEmacs package contains independent single file lisp packages
 
-VERSION = 1.09
+VERSION = 1.10
 AUTHOR_VERSION =
 MAINTAINER = XEmacs Development Team <xemacs-beta@xemacs.org>
 PACKAGE = misc-games
 ;; Boston, MA 02111-1307, USA.
 
 ;;;###autoload
-(defvar xemacs-praise-sound-file "im_so_happy.au"
+(defvar xemacs-praise-sound-file
+  (cond
+   ((eq (console-type) 'x)
+    "im_so_happy.au")
+   ((eq (console-type) 'mswindows)
+    "im_so_happy.wav"))
   "The name of an audio file containing something to play
 when praising XEmacs")
 
 			    xemacs-praise-sound-file)))))
       (if (and (device-sound-enabled-p) sound-file)
 	  (progn
-	    (sit-for 0)
-	    (play-sound-file sound-file))
-	(sit-for 10)))))
+	    (play-sound-file sound-file)
+	    (sit-for 5))
+	(sit-for 5)))))
 
 ;;;###autoload
 (defun praise-be-unto-emacs (&optional arg)