Mercurial > hg > xemacs-beta

comparison src/sgiplay.c @ 173:8eaf7971accc r20-3b13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b13
author cvs
date Mon, 13 Aug 2007 09:49:09 +0200
parents 376386a54a3c
children 3d6bfa290dbd
comparison
equal deleted inserted replaced
172:a38aed19690b 173:8eaf7971accc
256 256
257 static Lisp_Object 257 static Lisp_Object
258 restore_audio_port (closure) 258 restore_audio_port (closure)
259 Lisp_Object closure; 259 Lisp_Object closure;
260 { 260 {
261 Lisp_Object * contents = (vector_data (XVECTOR (closure))); 261 Lisp_Object * contents = XVECTOR_DATA (closure);
262 saved_device_state[1] = XINT (contents[0]); 262 saved_device_state[1] = XINT (contents[0]);
263 saved_device_state[3] = XINT (contents[1]); 263 saved_device_state[3] = XINT (contents[1]);
264 saved_device_state[5] = XINT (contents[2]); 264 saved_device_state[5] = XINT (contents[2]);
265 ALsetparams (AL_DEFAULT_DEVICE, saved_device_state, 6); 265 ALsetparams (AL_DEFAULT_DEVICE, saved_device_state, 6);
266 return Qnil; 266 return Qnil;