
(setq pause-timer (run-with-timer (* 60 25) (* 60 25) 'pause-break))
;;(cancel-timer pause-timer)

(defun pause-break ()
  (play-sound (list 'sound :file "c:/sound-samples/emacs/appt-pause-break.wav" :volume 1.0))
  )

(provide 'pause-break)
;;; pause-break.el ends here
