;: -*- emacs-lisp -*-
;:* $Id: my-sound.el,v 1.1.1.1 2001/09/06 06:48:37 trey Exp $
(setq bell-volume 2)
;(when (device-sound-enabled-p)
  ;; when an auto-save does not succeed
;  (load-sound-file "low-smash.wav" 'wavto-save-error 10)
  ;; when the XEmacs command loop catches an error
;  (load-sound-file "bark.wav" 'command-error 10)
  ;; when you type a key that is undefined
;  (load-sound-file "slap.wav" 'undefined-key 10)
  ;; when you use an undefined mouse-click combination
;  (load-sound-file "slap.wav" 'undefined-click 10)
  ;; during completing-read
;  (load-sound-file "clink.wav" 'no-completion 10)
  ;; when you type something other than 'y' or 'n'
;  (load-sound-file "bong.wav" 'y-or-n-p 10)
  ;; when you type something other than 'yes' or 'no'
;  (load-sound-file "yeep.wav" 'yes-or-no-p 10)
  ;; if the bounds of a buffer are reached
;  (load-sound-file "drip.wav" 'buffer-bound 10)
  ;; If an attemp is made to edit read only text
;  (load-sound-file "whip.wav" 'read-only 10)
  ;; used when nothing else is appropriate.
;  (load-sound-file "bass-snap.wav" 'de.wavlt 10)
  ;; Pressing Ctrl-G
;  (load-sound-file "yeep.wav" 'quit 10)
  ;; Isearch has failed
;  (load-sound-file "cuckoo.wav" 'isearch-failed 10)
  ;; Isearch has been quit
;  (load-sound-file "bass-snap.wav" 'isearch-quit 10)
  ;; Time consuming task has completed
;  (load-sound-file "catmeow.wav" 'ready 10)
  ;; WARP: XEmacs has changed the selected-window or frame
  ;; asynchronously...  Especially when it's done by an
  ;; asynchronous process filter.  Perhaps by a debugger
  ;; breakpoint has been hit?
;  (load-sound-file "catmeow.wav" 'warp)
  ;; Reminder
;  (load-sound-file "cuckoo.wav" 'alarm 10))
;:*::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::