Mercurial > hg > xemacs-beta

comparison src/sound.c @ 233:52952cbfc5b5 r20-5b15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b15
author cvs
date Mon, 13 Aug 2007 10:14:14 +0200
parents cca96a509cfe
children 51092a27c943
comparison
equal deleted inserted replaced
232:aa6545ea0638 233:52952cbfc5b5
88 } 88 }
89 89
90 GCPRO1 (file); 90 GCPRO1 (file);
91 file = Fexpand_file_name (file, Qnil); 91 file = Fexpand_file_name (file, Qnil);
92 if (NILP (Ffile_readable_p (file))) 92 if (NILP (Ffile_readable_p (file)))
93 {
93 if (NILP (Ffile_exists_p (file))) 94 if (NILP (Ffile_exists_p (file)))
94 error ("file does not exist."); 95 error ("file does not exist.");
95 else 96 else
96 error ("file is unreadable."); 97 error ("file is unreadable.");
98 }
97 UNGCPRO; 99 UNGCPRO;
98 100
99 #ifdef HAVE_NAS_SOUND 101 #ifdef HAVE_NAS_SOUND
100 if (DEVICE_CONNECTED_TO_NAS_P (d)) 102 if (DEVICE_CONNECTED_TO_NAS_P (d))
101 { 103 {