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

* play-sound causes "Invalid sound specification" on valid :data (on Windows)
@ 2007-06-15 19:07 ` Michael Schierl
  2007-06-16 10:28   ` Eli Zaretskii
                     ` (2 more replies)
  0 siblings, 3 replies; 6+ messages in thread
From: Michael Schierl @ 2007-06-15 19:07 UTC (permalink / raw
  To: bug-gnu-emacs

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

^ permalink raw reply	[flat|nested] 6+ messages in thread