Commits

Anonymous committed 4c3b785

sound file search fix

Comments (0)

Files changed (3)

+1998-03-31  John Jones <jj@asu.edu>
+
+	* xmine.el: Fixed problem locating sound files.
+
 1998-01-24  SL Baur  <steve@altair.xemacs.org>
 
 	* Makefile (VERSION): Update to package standard 1.0.
 # the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 # Boston, MA 02111-1307, USA.
 
-VERSION = 1.04
-AUTHOR_VERSION = 1.8
+VERSION = 1.05
+AUTHOR_VERSION = 1.8x1
 MAINTAINER = XEmacs Development Team <xemacs-beta@xemacs.org>
 PACKAGE = mine
 PKG_TYPE = regular
 		(eq (device-type) 'x)))))
 
 
-(defcustom xmine-flag-sound (concat (locate-data-directory "sounds")
-				    "click.au")
+(defcustom xmine-flag-sound (locate-data-file (concat
+			(file-name-as-directory "sounds") "click.au"))
   "The sound played when flagging/un-flagging a tile"
   :group 'xmine
   :type 'file)
 
-(defcustom xmine-unhide-sound (concat (locate-data-directory "sounds")
-				      "drip.au")
+(defcustom xmine-unhide-sound (locate-data-file (concat
+			(file-name-as-directory "sounds") "drip.au"))
   "The sound played when unhiding a tile"
   :group 'xmine
   :type 'file)
 
-(defcustom xmine-unhide-many-sound (concat (locate-data-directory "sounds")
-					    "boing.au")
+(defcustom xmine-unhide-many-sound (locate-data-file (concat
+			(file-name-as-directory "sounds") "boing.au"))
   "The sound played when unhiding all neighbours of a tile"
   :group 'xmine
   :type 'file)
   :group 'xmine
   :type 'file)
 
-(defcustom xmine-solved-sound (concat (locate-data-directory "sounds")
-				      "im_so_happy.au")
+(defcustom xmine-solved-sound (locate-data-file (concat
+			(file-name-as-directory "sounds") "im_so_happy.au"))
   "The sound played if you managed to win the game."
   :group 'xmine
   :type 'file)