Mercurial > hg > xemacs-beta

comparison src/sound.c @ 2294:d5131a81147e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-09-21 19:44:17 by james] Fix sound.c compilation problem reported by Adrian.
author james
date Tue, 21 Sep 2004 19:44:27 +0000
parents 04bc9d2f42c7
children ecf1ebac70d8
comparison
equal deleted inserted replaced
2293:fd11ab993173 2294:d5131a81147e
488 last_bell_time = now; 488 last_bell_time = now;
489 last_bell_device = d; 489 last_bell_device = d;
490 return Qnil; 490 return Qnil;
491 } 491 }
492 492
493 #ifdef HAVE_NAS_SOUND
494 #define USED_IF_HAVE_NAS(decl) decl
495 #else
496 #define USED_IF_HAVE_NAS(decl) UNUSED (decl)
497 #endif
498
493 DEFUN ("wait-for-sounds", Fwait_for_sounds, 0, 1, 0, /* 499 DEFUN ("wait-for-sounds", Fwait_for_sounds, 0, 1, 0, /*
494 Wait for all sounds to finish playing on DEVICE. 500 Wait for all sounds to finish playing on DEVICE.
495 */ 501 */
496 ( 502 (USED_IF_HAVE_NAS (device)))
497 #ifdef HAVE_NAS_SOUND
498 device
499 #else
500 UNUSED (device)
501 #endif
502 ))
503 { 503 {
504 #ifdef HAVE_NAS_SOUND 504 #ifdef HAVE_NAS_SOUND
505 struct device *d = decode_device (device); 505 struct device *d = decode_device (device);
506 if (DEVICE_CONNECTED_TO_NAS_P (d)) 506 if (DEVICE_CONNECTED_TO_NAS_P (d))
507 { 507 {
513 } 513 }
514 514
515 DEFUN ("connected-to-nas-p", Fconnected_to_nas_p, 0, 1, 0, /* 515 DEFUN ("connected-to-nas-p", Fconnected_to_nas_p, 0, 1, 0, /*
516 Return t if connected to NAS server for sounds on DEVICE. 516 Return t if connected to NAS server for sounds on DEVICE.
517 */ 517 */
518 ( 518 (USED_IF_HAVE_NAS (device)))
519 #ifdef HAVE_NAS_SOUND
520 device
521 #else
522 UNUSED (device)
523 #endif
524 ))
525 { 519 {
526 #ifdef HAVE_NAS_SOUND 520 #ifdef HAVE_NAS_SOUND
527 return DEVICE_CONNECTED_TO_NAS_P (decode_device (device)) ? Qt : Qnil; 521 return DEVICE_CONNECTED_TO_NAS_P (decode_device (device)) ? Qt : Qnil;
528 #else 522 #else
529 return Qnil; 523 return Qnil;