play-sound causes "Invalid sound specification" on valid :data (on Windows)

[Michael Schierl]

Please write in English if possible, because the Emacs maintainers
usually do not have translators to read other languages for them.

Your bug report will be posted to the bug-gnu-emacs@gnu.org mailing list,
and to the gnu.emacs.bug news group.

Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:

- Load emacs -Q
- Create a valid .au file in a string (it's easier than .wav):

(setq mysound (concat ".snd"       ; magic number
                      "\0\0\0\30"  ; sound offset 0x18
                      "\0\0\0\1"   ; sound length 1 byte
                      "\0\0\0\2"   ; encoding 8-bit PCM
                      "\0\0\37@"   ; sampling rate 8kHZ
                      "\0\0\0\1"   ; 1 channel (mono)
                      "x"))        ; some random "sound"

- check if the string is really unibyte, as it should:

(multibyte-string-p mysound)
  => nil

- play it

(play-sound `(sound :data ,mysound))
  => (error "Invalid sound specification")

- write it to a file

(with-current-buffer (find-file-noselect "~/mysound-tmp.au")
  (delete-region (point-min) (point-max))
  (insert mysound)
  (save-buffer 0)
  (kill-buffer nil))

- Playing it from there does not produce any error, but not sound either
  (should produce a short click sound; tested with other players).

(play-sound '(sound :file "~/mysound-tmp.au"))

- Other .au (and .wav) files play just fine, but no longer if I put them
  into a string.


In GNU Emacs 22.1.1 (i386-mingw-nt5.1.2600)
 of 2007-06-02 on RELEASE
Windowing system distributor `Microsoft Corp.', version 5.1.2600
configured using `configure --with-gcc (3.4) --cflags -Ic:/gnuwin32/include'

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: DEU
  locale-coding-system: cp1252
  default-enable-multibyte-characters: t

Major mode: Lisp Interaction

Minor modes in effect:
  encoded-kbd-mode: t
  tooltip-mode: t
  tool-bar-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  auto-compression-mode: t
  line-number-mode: t

Recent input:
M-x r e p o r t <tab> <return>

Recent messages:
("D:\\Progs\\emacs\\bin\\emacs.exe" "-Q")
Loading encoded-kb...done
For information about the GNU Project and its goals, type C-h C-p.
Loading emacsbug...
Loading regexp-opt...done
Loading emacsbug...done