home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / prim / sound.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  1.8 KB  |  22 lines
  1. ;;; compiled by @win386 on Thu Apr 29 20:46:15 1993
  2. ;;; from file c:/src/winemacs/lisp/prim/sound.el
  3. ;;; emacs version 19.4 (Win-Emacs 1.00.04 beta).
  4. ;;; bytecomp version 2.09; 16-jan-93.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (fset 'load-sound-file #[(filename sound-name &optional volume) "9¼ä┴┬!ê ½ê ¿¼ä┴─!ê┼ë╚Äè╔╩!ëqê╦ ê╠!ê╬ ╦ ê*₧ë½è╤╥!\")╙ ½î ╘=¼ç E¬äB!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*" erase-buffer insert-file-contents filename buffer-string sound-alist old delq copy-sequence purecopy 0] 5 "\
  14. Read in an audio-file and add it to the sound-alist.
  15.  
  16. You can only play sound files if you are running on display 0 of the console
  17. of a Sun SparcStation or an SGI machine.  The sound file must be in the
  18. Sun/NeXT U-LAW format." "fSound file name: \nSSymbol to name this sound: \nnVolume (0 for default): "])
  19. (fset 'load-default-sounds #[nil "└┴!ê┬ ╞╟╚\"ê╞╔╩\"ê╞╦╠═#ê╞╬╧╨#ê)╤╥ \"└╙!ê╘┬╩\"ç" [message "Loading sounds..." nil sound-alist exec-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 bass) (undefined-key drum) (undefined-click drum) (command-error bass) (no-completion whip) (y-or-n-p quiet) (yes-or-no-p quiet) (isearch-failed quiet) (isearch-quit bass) (auto-save-error whip 100)) "Loading sounds...done" beep] 4 "\
  20. Load and install some sound files as beep-types.
  21. This only works if you're on display 0 of a Sun SparcStation or SGI machine." nil])
  22.