From xemacs-m  Wed Apr 23 09:57:27 1997
Received: from gwa.ericsson.com (gwa.ericsson.com [198.215.127.2])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id JAA29771
	for <xemacs-beta@xemacs.org>; Wed, 23 Apr 1997 09:57:26 -0500 (CDT)
Received: from mr1.exu.ericsson.se (mr1.exu.ericsson.com [138.85.147.11]) by gwa.ericsson.com (8.8.2/8.8.2) with ESMTP id JAA03798 for <xemacs-beta@xemacs.org>; Wed, 23 Apr 1997 09:56:56 -0500 (CDT)
Received: from screamer.rtp.ericsson.se (screamer.rtp.ericsson.se [147.117.133.13]) by mr1.exu.ericsson.se (8.7.1/NAHUB-MR1.1) with SMTP id JAA29734 for <xemacs-beta@xemacs.org>; Wed, 23 Apr 1997 09:56:56 -0500 (CDT)
Received: from rcur (rcur18.rtp.ericsson.se [147.117.133.138]) by screamer.rtp.ericsson.se (8.6.12/8.6.4) with ESMTP id KAA14285 for <xemacs-beta@xemacs.org>; Wed, 23 Apr 1997 10:56:55 -0400
To: XEmacs Beta Mailing List <xemacs-beta@xemacs.org>
Subject: 20.2-b1 change in load-sound-file
Mime-Version: 1.0 (generated by tm-edit 7.106)
Content-Type: text/plain; charset=US-ASCII
Date: Wed, 23 Apr 1997 10:56:54 -0400
Message-ID: <3411.861807414@rtp.ericsson.se>
From: Raymond Toy <toy@rtp.ericsson.se>


Ever since sound was added to XEmacs, I've been loading up my personal 
sounds like this:

  <blah-blah>
  (let ((default-directory (expand-file-name "/apps/public/xemacs/sounds/")))
    ;; Some sounds from Bubsy
    (load-sound-file "bboop.au" 'bboop 30)

    <and so on>

This worked beautifully.  But not any more.  I get an error message
about wrong type:  stringp, nil with the following traceback:

Signaling: (wrong-type-argument stringp nil)
  find-file-name-handler(nil file-name-sans-versions)
  file-name-sans-versions(nil)
  find-buffer-file-coding-system-from-filename(nil)
  byte-code(<byte-codes deleted because it messes up the display?>)
  insert-file-contents(nil)
  load-sound-file("bboop.au" bboop 30)
  (let ((default-directory ...)) (load-sound-file "bboop.au" (quote bboop) 30) (load-sound-file "boing.au" (quote boing)) (load-sound-file "bop.au" (quote bop) 30) (load-sound-file "yow.au" (quote yow) 40) (load-sound-file "yikes.au" (quote yikes) 30) (load-sound-file "outta-here.au" (quote outta-here)) (load-sound-file "chunli.au" (quote chunli)) (load-sound-file "electro-short.au" (quote electro)))
)
  (lambda nil "Load and install some sound files as beep-types.\nThis only works if you're on display 0 of a Sun SparcStation, SGI machine,\nor HP9000s700." (interactive) (message "Loading personal sounds...") (load-default-sounds) (let (...) (load-sound-file "bboop.au" ... 30) (load-sound-file "boing.au" ...) (load-sound-file "bop.au" ... 30) (load-sound-file "yow.au" ... 40) (load-sound-file "yikes.au" ... 30) (load-sound-file "outta-here.au" ...) (load-sound-file "chunli.au" ...) (load-sound-file "electro-short.au" ...)) (let (...) (load-sound-file "sounds/drum-beep.au" ...) (load-sound-file "sounds/quiet-beep.au" ...) (load-sound-file "sounds/bass-snap.au" ...) (load-sound-file "sounds/whip.au" ...)) (mapcar (quote rlt-replace-sound-alist-elt) (quote ...)) (message "Loading personal sounds...done") (beep nil (quote quiet)))()
  call-interactively(my-default-sounds)
  command-execute(my-default-sounds t)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)


If I replace the file name in load-sound-file with the whole pathname, 
it works.

A minor annoyance, to be sure, but a pain.

Ray

