;ELC ;;; compiled by jwz@thalidomide on Fri May 6 14:49:12 1994 ;;; from file /th/jwz/emacs19/lisp/prim/sound.el ;;; emacs version 19.10 Lucid (beta21). ;;; bytecomp version 2.24; 26-Apr-94. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (fset 'load-sound-file #[(filename sound-name &optional volume) "9¬„ÁÂ!ˆ «ˆ ¨¬„ÁÄ!ˆÅ‰ÈŽŠÉÊ!‰qˆËp!ˆÌ ˆÍ!ˆÏ Ì ˆ*ž‰«ŠÒÓ!\")ÔC ­‰ Õ=?­ƒÖ D¤×D¤!B*‡" [sound-name error "sound-name not a symbol" volume "volume not an integer or nil" nil data buf ((byte-code "«„Á!ˆÁ‡" [buf kill-buffer] 2)) get-buffer-create " *sound-tmp*" buffer-disable-undo erase-buffer insert-file-contents filename buffer-string sound-alist old delq copy-sequence purecopy 0 :volume :sound] 5 "\ Read in an audio-file and add it to the sound-alist. You can only play sound files if you are running on display 0 of the console of a Sun SparcStation, SGI machine, or HP9000s700, or running a NetAudio server. The sound file must be in the Sun/NeXT U-LAW format." "fSound file name: \nSSymbol to name this sound: \nnVolume (0 for default): "]) (fset 'load-default-sounds #[nil "ÀÁ!ˆÂ ÆÇÈ\"ˆÆÉÊ\"ˆÆËÌÍ#ˆÆÎÏÐ#ˆ)ÑÒ \"ÀÓ!ˆÔÂÊ\"‡" [message "Loading sounds..." nil sound-alist data-directory default-directory load-sound-file "sounds/drum-beep.au" drum "sounds/quiet-beep.au" quiet "sounds/bass-snap.au" bass 80 "sounds/whip.au" whip 70 append ((default :sound bass) (undefined-key :sound drum) (undefined-click :sound drum) (command-error :sound bass) (no-completion :sound whip) (y-or-n-p :sound quiet) (yes-or-no-p :sound quiet) (isearch-failed :sound quiet) (isearch-quit :sound bass) (auto-save-error :sound whip :volume 100)) "Loading sounds...done" beep] 4 "\ Load and install some sound files as beep-types. This only works if you're on display 0 of a Sun SparcStation, SGI machine, or HP9000s700, or running a NetAudio server." nil])