X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/95a2cb24b0697558e6629460d8bc693b394f0138..0247489fed0f70b2abf960de48bc4432381a581b:/src/sound.c
diff --git a/src/sound.c b/src/sound.c
index 05c7b06010..09ab48c58e 100644
--- a/src/sound.c
+++ b/src/sound.c
@@ -46,7 +46,6 @@ along with GNU Emacs. If not, see . */
#include
#include "lisp.h"
-#include "dispextern.h"
#include "atimer.h"
#include "syssignal.h"
/* END: Common Includes */
@@ -1351,7 +1350,6 @@ Internal use only, use `play-sound' instead. */)
{
Lisp_Object attrs[SOUND_ATTR_SENTINEL];
ptrdiff_t count = SPECPDL_INDEX ();
- struct gcpro gcpro1, gcpro2;
#ifdef WINDOWSNT
unsigned long ui_volume_tmp = UINT_MAX;
@@ -1363,7 +1361,6 @@ Internal use only, use `play-sound' instead. */)
error ("Invalid sound specification");
Lisp_Object file = Qnil;
- GCPRO2 (sound, file);
#ifndef WINDOWSNT
current_sound_device = xzalloc (sizeof *current_sound_device);
@@ -1452,7 +1449,6 @@ Internal use only, use `play-sound' instead. */)
#endif /* WINDOWSNT */
- UNGCPRO;
return unbind_to (count, Qnil);
}